Problem beim erzeugen von Zufallszahlen 100.000<

[Hallo_Thomas]

Und zwar habe ich folgenes Problem, wenn bei diesen Befehl unten versuche 100.000 Zufallszahlen zu erzeugen, schaffe ich eine Rechnerauslastung von 99% und Speicherauslastung steigt, und die Zahlen werden erst nach ca. 2min dargestellt.
Während bei 10.000 Zahlen der Vorgang gerade mal 1,2s dauert!

Wie kann ich diesen Vorgang beschleunigen?

Delphi-Quellcode:

procedure TForm1.SpeedButton8Click(Sender: TObject);
Var Zahl,i    :Integer;
    farbe   :TColor;
begin
  randomize;
  for i:=1 to StrToInt64(Edit1.Text) do//////hier wird bestimmt wieviel Zz erzeugt werden
  begin
    Zahl :=random(7)+1;
    meineListe.Insert(0,IntToStr(Zahl));
    if Zahl in [1,37] then farbe := clblue else
    farbe := clyellow;
    Listbox1.Items.InsertObject(0,IntToStr(Zahl), Pointer(farbe));
  end;
end;