Allgemein sollte man bei Stacküberläufen gucken, ob man rekursiver programmiert hat als man vorhatte
Das ist zwar oftmals wirklich der Grund, aaaaaaaber
Delphi-Quellcode:
procedure TForm5.FormCreate(Sender: TObject);
var
a: array[0..12345678] of Byte;
begin
if a[0] = 0 then
// nix (keine Lust)
end;
Und nun such mal den rekursiven Aufruf