Problem beim erzeugen von Zufallszahlen 100.000<

[x000x]

Moin moin,

brauchst du wirklich eine ListBox für die Einträge? (Ich kann mir nicht vorstellen,
dass jemand 100000 Einträge durchscrollt)
Wenn du im Programm nur die farbe + zahl brauchst, nehme doch nen array...
(Mit Begin + EndUpdate gehts bissel schneller, aber zufrieden wirst du nicht sein)

Delphi-Quellcode:

type
   TMyListe = Record
      Zahl : Integer;
      Farbe : TColor;
   end;

procedure TForm1.SpeedButton8Click(Sender: TObject);
Var i      : Integer;
    MyListe : array of TMyListe;
begin
   randomize;
   for i:=1 to StrToInt64(Edit1.Text) do begin
      SetLength( MyListe, i );
      MyListe[Pred(i)].Zahl := random(7)+1;
      if MyListe[Pred(i)].Zahl in [1,3,7] then
         MyListe[Pred(i)].farbe := clblue
      else
         MyListe[Pred(i)].farbe := clyellow;
   end;
   ShowMessage('Fertig :o)');
   Finalize(MyListe);
end;

Wenn du hier 100000 einträgst und auf deinen button klickst,
bekommst du die meldung schon, wenn du die maus los lässt...

Ist es evtl. eine alternative?