Revision; result überschreiben

[Mokus]

Delphi-Quellcode:

function TForm1.Fakulitaet(
  n        : integer;
  max      : integer;
  iErgebnis: integer): integer;
begin
  if n <= max then
  begin
    iErgebnis := iErgebnis * n;
    n         := n + 1;
    result    := self.Fakulitaet(n, max, iErgebnis); // falsche zuweisung fehlte,
  end
  else
  begin
    result := iErgebnis; // damit auch richtiges ergebnis kommt
  end;

kleines else und ne result zuweisung haben gefehlt;
dank euch