1753 ms:
Delphi-Quellcode:
procedure TfrmIosMain.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;
Liegt es vielleicht nicht an der Listbox sondern daran wie Du die Daten erstellst?