Stack Überlauf

[Leena]

Danke für den Hinweis.
Allerdings finde ich an der Stelle keine rekursive Prouedur.

Delphi-Quellcode:

procedure eingabe;
var i:integer;
begin
   If zahler1 = 0
   Then
   begin
     Form2.Label1.caption:='';
     Form2.Label3.caption:='';
     Form2.edit2.show;
     a:= strToInt(Form2.Edit1.Text);
     n:= 1;
     For i:=1 to a  Do
     begin
         n:= n*a;
     end;
     setLength(El,a);
     setLength(Mo,n);
     setLength(Re,n,a);
     setLength(Vo,a);
     Form2.Edit1.Text:='';
   end;
end;

Auserdem müste es, bei einer rekursiven entlosschleife doch schon deim ersten Programmdurchlauf zu einem Fehler kommen, oder?