OnClose abbrechen?

[Knotti]

Hallo ich hab gerade versucht die Onclose Prozedur abbzubrechen ohne das das Fenster geschlossen wird. Ich dachte immer mir exit; könnte man eine Prozedur in ihrer Verarbetung Abbrechen lassen leider scheint es nicht so da sich das Fenster trozdem schließt...

Delphi-Quellcode:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
var
  buttonSelected : Integer;
begin
  if save= true then
    begin
      form1.close;
    end
      else
    begin
      buttonSelected := MessageDlg('Achtung der Sitzplan wurde noch nicht gespeichert! Möchten Sie trozdem Seatplan  schließen?',mtCustom,[mbYes,mbNo], 0);
        if buttonSelected = mrYes     then
          begin
            form1.close
          end;
        if buttonSelected = mrNo then
          begin
            exit;
          end
   end;
 end;