Stack-Überlauf

[Array]

Hallo Leute!

Hab folgenden Code:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Gespeichert = 'Ja' then begin
   Close;
end else begin
if (MessageDlg('Sie haben nicht gespeichern! Wollen Sie vor dem Beenden speichern?', mtWarning, [mbYes, mbNo], 0) = mrYes) then begin
bt_save.click;
close;
end;
if (MessageDlg('Sie haben nicht gespeichern! Wollen Sie vor dem Beenden speichern?', mtWarning, [mbYes, mbNo], 0) = mrNo) then begin
close;
end;
end;
end;

Immer wenn er aus geführt wird kommt ein Stack-Überlauf!

Worauf ist das zurückzuführen?

Danke im Voraus!

Liebe Grüße

Array