【Delphi】TListBoxのフォントサイズ

なんと、1項目ずつにフォントを設定するのですね。
https://ht-deko.com/techf010.html

私がやってもリンク先のプログラム通りではフォントが変更されませでした、が、
styleを作ってあげて、それをstylelookupに指定してあげればフォント変更が反映されました。

  ListBox1.Clear;
  ListBox1.ItemHeight:=100;
  for i := 0 to count - 1 do
  begin
    ListBox1.Items.Add(inttostr(i));
    ListBox1.ListItems[i].StyleLookup:='styleListBoxItem';
  end;

  ListBox1.ItemIndex:=0;

フォントサイズだけでなく、
「 ListBox1.ItemHeight:=100;」みたいな感じで、
ItemHeightも変えてあげないとキレイに表示されません。

FireMobkeyは、この表示系の一つひとつが面倒です。