Ackermann-Problem Stacküberlauf

[MisterNiceGuy]

Hi,
mal wieder die Ackermannfunktion, die mir Sorgen macht.
Ich weiß, dass es das Thema schon einmal gab, aber das hat mir nicht wirklich geholfen!
Der Stack läuft über, obwohl das inner Schule nich passiert und ich bin mir eigentlich
sehr sicher alles richtig gemacht zu haben!!

Code:

function TForm1.acker(m,n : integer) : integer;
begin
if m=0 then n := n+1
    else
       if n=0 then
           acker(m-1,1)
              else acker(m-1,acker(m,n-1));
end;

Kann mir mal jemand nen Tip geben??