How to change font to listbox in FMX DELPHI?

Question

Delphi

Hello guys, tell me how to replace the font with a listbox, it is he who is needed. I'm trying to set it line by line and in a separate loop, all to no avail ...

код: 
var
i:integer;
begin
for I := 0 to listbox2.Items.Count - 1 do - пробовал и listbox2.count и ItemIndex 
button4.Text:=inttostr(i);
listbox2.ListItems[i].Font.Family:='Open Sans';

Delphi Xe 10.1 Berlin - On Android result