"Programm beenden" abbrechen

[Opa Knack]

Hallo,

Danke für den Tipp. Ich habe jetzt einen OnCloseQuery-Event erstellt, der wie folgt lautet:

Delphi-Quellcode:

  if CoreStatus <> '' then
  begin

    if MessageDlg('Close the form?', mtConfirmation,[mbOk, mbCancel], 0) = mrCancel then
     CanClose := False;

  end;

(Ist mehr oder weniger der Hilfe entnommen)

Trotzdem klappt es leider nicht. Der Ansatz ist zwar (soweit ich das sehen kann) logisch und schlüssig, aber irgendwo habe ich immer noch einen Denkfehler.

Jemand eine Idee, wo dieser liegen könnte?

Danke
Opa