Problem bei Berechnung der Fakultät, sehr Komische Ergebniss

[Clobber the mob]

Also erstmal das ist mein Code:

Delphi-Quellcode:

procedure TForm1.FakultaetButtonClick(Sender: TObject);
var fakultaeteingabe, fakultaetausgabe, Zahl : integer;
begin

   zahl := 1;
   fakultaeteingabe := StrToInt(FakultaetEingabeEdit.Text);

   if fakultaeteingabe = 0 then fakultaetausgabe := 1 else
   repeat
    fakultaetausgabe := fakultaetausgabe * zahl;
    zahl := zahl +1;
   until zahl = fakultaeteingabe;

   FakultaetAusgabeEdit.Text := IntToStr(fakultaetausgabe);

end;

Und ich hab folgendes Problem, wenn ich nun eine Eingabe mache, zb. "2" dann erhalte ich als Erebnis "4356056".
Woran kann das liegen, irgendwie steh ich aufm Schlauch?

[Matze]

Du musst fakultaetausgabe zuerst initialisieren (mit dem Wert 1), sonst steht - mehr oder weniger - ein Zufallswert in dieser Variablen.


Edit: Ergänzungen hinzugefügt.

[Clobber the mob]

danke für die schnelle hilfe, funtioniert.