Berechnen der Fakultät: - Wert als Ergebnis??

[Newcomer91]

Guten Morgen,

ich habe ein Programm für Arithmetische Berechnungen geschrieben, welches unter anderem die Fakultät einer beliebigen positiven Zahl berechnet.

Es läuft bis ca. zahl=20 auch gut. Nur ab dann kommt es in unregelmäßigen Abständen dazu, dass die Ergebnisse mit negativen Vorzeichen ausgegeben werden.
Hier noch der Code:

Delphi-Quellcode:

implementation

Function Fakultaet(Zahl : Int64): Int64;
begin
  If Zahl = 0 then
    result := 1
  else
    result := Zahl * Fakultaet(Zahl - 1);
end;

Delphi-Quellcode:

procedure TfrmFak.btnCalculateClick(Sender: TObject);
begin
  frmFak.Label1.Caption := IntToStr(Fakultaet(StrToInt(frmFak.edtZahl.text)));
end;

Wo ist mein Fehler?

Gruß

New