Revision; result überschreiben

[Mokus]

Bei der Folgende Function wird mein result immer überschrieben;

Delphi-Quellcode:

function TForm1.Fakulitaet(
  n        : integer;
  max      : integer;
  iErgebnis: integer): integer;
var
  I: integer;
begin
  if n <= max then
  begin
    iErgebnis := iErgebnis * n;
    n         := n + 1;
    result    := iErgebnis;
    self.Fakulitaet(n, max, iErgebnis);
  end;

end;

Er rechnet richtig, bei 5 120 etc.

Das result ist aber ständig eins ....

Wie kann man bei einer rekusiven Function das result nehmen, welches am letzten herausgefunden war.