Newbie: For schleife wird nicht ausgeführt

[rossinie00]

Code:

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

ich will dass bei nem button klick 10 zufallszahlen untereinander in ein memo feld geschrieben werden, die obergrenze legt der benutzer durch eine eingabe fest.
Das funktioniert bis auf die 10 zahlen untereinander. 1 schreibt er immer hin aber keine 10,
was mach ich falsch