FMX Listbox total lahm

[Union]

Frische FMX-HD Anwendung:

Delphi-Quellcode:

uses DateUtils;
{$R *.fmx}

procedure TForm3.FormCreate(Sender: TObject);
var
  i : integer;
  dtStart : TDateTime;
begin
  dtStart := Now;
  for i := 0 to 7999 do
    ListBox1.Items.Add(Format('%8.8d', [i]));
  ShowMessage(Format('%d', [MilliSecondsBetween(Now, dtStart)]));
end;

2425 ms.

Delphi-Quellcode:

ListBox1.BeginUpdate;
for i := 0 to 7999 do
  ListBox1.Items.Add(s);
EndUpdate;

1690 ms. Hast Du vielleicht ein OnChange oder sowas an der Listbox?