2 Möglichkeiten:
Delphi-Quellcode:
function SomeFunction: integer;
begin
Result := 42; (* Result *)
end;
oder auch
Delphi-Quellcode:
function SomeFunction: integer;
begin
SomeFunction := 42; (* Funktionsname *)
end;
Auch nach 20-maligem Drübergucken habe ich in Deinem Code keine der beiden Möglichkeiten entdecken können. Du musst also vor dem rekursiven Aufruf der Funktion einen Wert zuweisen, sonst steht da irgendetwas drin, aber nichts Definiertes. Steppe doch einmal durch und schau Dir den Wert von za nach dem Aufruf an. Nach meinem Dafürhalten müsste da ziemlicher Nonsens drinstehen.