randomize problem

[Nersgatt]

Ich rücke Dir den Code mal etwas sinnvoller ein, evtl. siehst Du Deinen Fehler dann selbst:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  randomize;

  for i := 1 to 6 do begin
    test := random(49);

  if test = 0 then begin
    memo1.clear;
    test := random(49);

    if test < 6 then begin
      memo1.Clear;
      test := random(49);
    end;

  end;

  Edit1.Text := 'Generating ' + Inttostr(i) + ' of 49 done';
  Memo1.Lines.Add(Inttostr(test));
end;