Stack-Überlauf bei Prozeduraufruf

[DarkLord0]

Hiho,

Jedesmal, wenn ich mein Programm folgende Prozedur aufrufen lasse, beendet es sich ohne Fehlermeldung (als hätte man halt benutzt) bzw. mit Fehlermeldung Stack-Überlauf wenn ich es über die IDE starte.

Delphi-Quellcode:

procedure tform1.savedata(satz:data1;filename:string);
var
F: File of data1;
begin
showmessage('#1');
try
AssignFile(F,ExtractFilePath(ParamStr(0))+'1.tmp');
ReWrite(F);
Write(F,satz);
finally
CloseFile(F);
end;
end;

data1 ist ein Record der Größe ~3.16MB, kann es vielleicht an der Größe liegen?
Es wird noch nicht einmal die showmessage('#1') angezeigt, bevor die Meldung kommt bzw. das Programm weg ist.
Woran kann das liegen?