Newbie: For schleife wird nicht ausgeführt

[iaby]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  i, Zufallszahl, eingabe, summe: integer; 
  durchschnitt: real;
begin 
  RANDOMIZE; 
  eingabe := strtoint(edit1.text); 
  Memo1.Lines.Clear;
  summe := 0; 
  for i := 1 to 10 do 
  begin 
    Zufallszahl := Random(eingabe); 
    memo1.Lines.Add(inttostr(Zufallszahl)); 
    summe := summe + ZufallsZahl;
  end; 
  durchschnitt := summe / 10;
  for i := 0 to 3 do
    memo1.Lines.Add('');
  memo1.Lines.Add(IntToStr(durchschnitt));
end;

jetzt sollte es gehen!
summe war zuvor nicht auf 0 gesetzt!

gruss,
iaby