how set the font, font size, fsbold,and font color of one of ListItem?

[rzaripov1990]

var
  I: Integer;
begin
  for I := 0 to 9 do
  begin
    with ListView1.Items.Add do
      Text := 'Item ' + I.ToString;
  end;
end;

procedure TForm1.ListView1UpdateObjects(const Sender: TObject; const AItem: TListViewItem);
begin
  if AItem.Index = 4 then // only this Item
  begin
    AItem.Objects.TextObject.Font.Style := [TFontStyle.fsBold];
    AItem.Objects.TextObject.TextColor := TAlphaColorRec.Red;
  end;
end;

[jonahzheng]

@rzaripov1990 thank you! good job!