OnFormDestroy Frage "wirklich schließen"

[happyaura]

Hallo allerseits,

ich möchte gerne eine den Benutzer fragen, ob ein Programm wirklich geschlossen werden soll, nachdem oben rechts auf das x geklickt oder das fenster mit alt+F4 geschlossen werden soll. meine idee war folgende:
onFormDestroy:

Delphi-Quellcode:

  case MessageDlg('wirklich neustarten?', mtConfirmation, [mbyes, mbno], 0) of
    mrYes:
      begin
        showmessage('yes');
      end;

    mrNo:
      begin
        showmessage('no');
        exit;
      end;
  end;

Leider ist der effekt gleich null, da das programm sich schließt, bevor ich die meldung wirklichzu sehen bekomme. gibt es eine möglichkeit, OnFormdestry aufzuhalten? oder kann ich das irgendwie anders abfangen?

Gruß Martin