Event: Form über Schließen-Kreuz beenden

[Progman]

schreib doch einfach ins FormCloseQuery:
  if MessageDlg('Vorgang Abbrechen?',....) = mrYes then CanClose := True else CanClose := False;