Wie bei FormClose() auf abbrechen reagieren?

[toko]

Hallo,

ich habe mal eine kurze Frage:

Wenn ich mein Programm über einen Menüeintrag schließe, dann rufe ich folgende Procedure auf:

Delphi-Quellcode:

{ Abfrage zum Speichern, danach Programm schließen}
procedure TfrmMain.showDialogSaveXMLFileAndClose;
begin
  if not IsXMLFileSaved then begin
    if Trim(XMLfile)='' then begin
      case MessageDlg('Möchten Sie die Änderungen speichern?', mtConfirmation, [mbYes, mbNo, mbCancel], 0) of
        { kein Dateiname angegeben und sichern }
        mrYes: begin
          if dlgSave.Execute then begin
            XMLfile := dlgSave.FileName;
            XMLDoc.save(XMLfile);
            IsXMLFileSaved := True;
            Close;
          end;
        end;
        { kein Dateiname angegeben und ohne zu sichern fortfahren }
        mrNo: begin
          Close;
        end;
        { Dialog abbrechen }
        mrCancel: begin
          exit;
        end;
      end;
    end else begin
      case MessageDlg('Möchten Sie die Änderungen in '+ XMLfile
        +' speichern?', mtConfirmation, [mbYes, mbNo, mbCancel], 0) of
        { Dateiname angegeben und sichern }
        mrYes: begin
          XMLDoc.save(XMLfile);
          IsXMLFileSaved := True;
          Close
        end;
        { Dateiname angegeben und ohne zu sichern fortfahren }
        mrNo: begin
          Close;
        end;
        { Dialog abbrechen }
        mrCancel: begin
          exit;
        end;
      end;
    end;
  end else begin
    close;
  end;
end;

Ich habe aber keine Ahnung, wie ich dieses Verhalten übernehmen kann, wenn ich auf den Schließen-Button des Fensters klicke. Oder habe ich eine Möglichkeit den Button zu deaktivieren bzw. auszublenden? Hab schon versucht mit BorderStyle zu arbeiten. "bsNone" sieht aber nicht gerade schön aus...

Kann mir jemand helfen?