Beim ersten Durchblick ist mir aufgefallen, dass beide Funktionen die gleiche Abfrage haben...
Dann springt er bei Nichterfüllung einer Abfrage zur nächsten, bis ein Stack-Überlauf kommt!
Delphi-Quellcode:
function TForm1.odd(x: integer): boolean;
begin
if (x mod 2 = 0) then
....
end;
function TForm1.even(x: integer): boolean;
begin
if (x mod 2 = 0) then
begin
....
end;