How to replace the font on listbox in DELPHI FMX?

Hi guys, tell me how to replace the font in the listbox, you need it. Try to ask on line and in a separate cycle, all to no avail...

code: 
var
i:integer;
begin
for I := 0 to listbox2.Items.Count - 1 do - tried and listbox2.count and ItemIndex 
button4.Text:=inttostr(i);
listbox2.ListItems[i].Font.Family:='Open Sans';


Delphi Xe 10.1 Berlin - For any result
July 2nd 19 at 17:57
0 answer

Find more questions by tags Delphi