wegen zeitberechnung gleiche zufallszahlen

[TeKilla]

hallo!
habe bei einem programm folgendes problem:
ich möchte ein feld mit einer vom user bestimmten menge von zufallszahlen füllen, habe aber das problem, dass wenn der user z.B. 10 zufallszahlen möchte, diese in einem so kleinen zeitabstand von delphi erzeugt werden, dass sie alle gleich sind (delphi rechnet ja durch die uhrzeit die zufallszahlen aus). das problem is natürlich dass es ziemlich öde is wenn alle zufallszahlen immer gleich sind. weiss einer wie ich es hinbekomme dass delphi sofort andere zufallszahklen erzeugt?
hier noch der qullcode:

Delphi-Quellcode:

procedure TForm1.zufallbtnClick(Sender: TObject);
var
h,z,i:integer;
begin
h:=strtoint(zufall.text)+1; {der wertebereich der zufallszahlen}
for i:=feldmenge+1 to feldmenge+h do begin
randomize;
z:=random(strtoint(randommenge.text));
box1.items.add(inttostr(z));
feldunsort[i]:=z;
end;
feldmenge:=box1.items.count+1;
end;

schonmal vielen dank im vorraus für die hilfe
Greetz
TeKilla