Random ist kein reiner Zufall

[dino]

schön ausgedrückt sun

hier mal der Quelltext aus meinem 2. Programm, welches das selbe tut wie das 1. nur immer wieder

Delphi-Quellcode:

var
  i:integer;

{$R *.DFM}

procedure rechne;
   var i0, i1, i2:integer;
begin
  Randomize;
  i0:=0;
  i1:=0;
  i2:=0;
  form1.Button1.caption:='Stop';

  Repeat
    Case Random(3) of
       0: Inc(i0);
       1: Inc(i1);
       2: Inc(i2);
    end;
  until (i0=i1) and (i0=i2) and (i1=i2);

  Beep;
  inc(i);
  form1.image1.canvas.pixels[i,form1.image1.height-round(2*sqrt(sqrt(i0)))]:=clred;
  form1.edit1.text:=form1.edit1.text + inttostr(i0)+' - ';

  form1.timer1.enabled:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if button1.caption='Stop' then
  begin
    button1.caption:='Start';
    timer1.enabled:=false;
  end else rechne;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  timer1.enabled:=false;
  rechne;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  i:=0;
end;

end.

ach übringens: hat jemand die exe ausprobiert? was habt ihr so raus?