Newbie: For schleife wird nicht ausgeführt

[FriFra]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, Zufallszahl, eingabe: integer;
begin
  RANDOMIZE;
  eingabe := strtoint(edit1.text);
  Memo1.Lines.Clear;
  for i := 1 to 10 do
  begin
    Zufallszahl := Random(eingabe);
    memo1.Lines.Add(inttostr(Zufallszahl));
  end;
end;