Hallo Matze,
ich habe es mit der folgenden Funktion hinbekommen und die Unterscheidet sich ja nicht wirklich von deiner. Vielleicht liegt der Fehler woander.
Delphi-Quellcode:
function Rekursiv(n,x: Integer): Integer;
begin
if n=1 then
Result:= x
else
Result:=Rekursiv(n-1,x)*x;
end;
Grüße
Seniman