Du kannst ja auch versuchen andere faktoren mitein zu berechnen.
ZB die momentane Zeit oder das Datum:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i,randomzahl:Integer;
begin
For i:=1 to StrToInt(Copy(TimeToStr(now),7,2)) do
begin
Randomize;
end;
RandomZahl:=Random(100);
end;
So ist die gefahr, dass immer das selbe herauskommt nur noch 1/60.
Du kannst ja auch andere faktoren miteinberechnen. Datum, wochentag,...
je mehr desto besser.
Allerdings sollte die schleife nicht zu lange werden.