Stack Overflow ohne Ereignis

[Coder1990]

Seas,

folgendes:

Delphi-Quellcode:

procedure TMain.SaveFileAs1Click(Sender: TObject);
var
f: file of tcodepassword;
temp:tcodepassword;
i:integer;
begin
if SD.Execute then begin
current:=sd.FileName;
assignfile(f,sd.FileName);
rewrite(f);

for i:=1 to LBPW.Count do  begin
temp:=codec(data[i]);
Write(f,temp);
end;
closefile(f);
               end;
end;

bei aufruf dieser procedure wird noch vor dem aufrufen von sd (savedialog) ein stack overflow gemeldet...
beim weglassen des inhalts der for schleife passiert dies aber nicht... warum?
p.s. die function codec erzeugt keinen overflow, sie basiert maximal auf for schleifen...