Stack-Überlauf

[BUG]

Wird wohl an den close liegen.
Kommentiere es mal aus und probiere was passiert.

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;