Schleife in die editausgabe prozedur

[HappyTreeFriend]

So jetzt hab ich nen neuen Threat aufgemacht!

Ich muss mit meinem Kumpel ein Projekt für den Informatik LK schreiben, da brauche nwir manchmal etwas hilfe .


Aber jetzt mal zu deinem Algorithmus!
zur erinnerung:

Code:

procedure delay(msec:longint); 
var 
  start,stop:longint; 
begin 
  start := gettickcount; 
  repeat 
  stop := gettickcount; 
  application.processmessages; 
  until (stop - start ) >= msec; 
end; 

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 5 do
  Edit1.Text := IntToStr(i);
  Delay(500);
  Edit1.Text :=IntToStr(i);
  Delay(500);
  Edit1.Text := IntToStr(i);
end;

Das funzt schonmal !!

Jetzt noch eine frage:
Wie kann ich denn jetzt da nen gescheiten "random zähler" einbauen.
Also dass er mir random zahlen in dem editfeld ausgibt

müsste doch theoretischerweise so gehen

Code:

var i:integer; 
begin 
randomize; 
i:=random(10); 
{schleife} 
. 
. 
edit1.text:=IntToStr(i); 
delay(500); 
{schleife} 
end;

wie bau ich denn da ne geeignete schleife ein?
Ich mag eben dass in einem Editfeld eine kurze Zeit lang gaaanz viele verschiedene zahlen ganz schnell wechseln, so wie in einer slotmachine (einfach gesagt )

Danke nochmal

ciao
Happy

PS: Das mit den Buttons klappt auch prima!!