Random liefert unter WinCE keine Zufallszahlen

[himitsu]

Zum Glück bin ich nicht fies.

Sonst würde ich sowas machen:

Delphi-Quellcode:

i := 123456;
while i = 123456 do begin
  RandSeed := i;
  i := Random(2954567);
  //ShowMessage(IntToStr(i));
end;
ShowMessage(IntToStr(i));