"Programm beenden" abbrechen

[Opa Knack]

Hallo,

sicherlich mal wieder eine überflüssige Frage, aber ich komme damit einfach nicht weiter und konnte bislang auch noch nichts dazu finden:

Ich möchte beim Programmende die Variable CoreStatus abfragen, die vorher mit einem Status belegt wurde. Ist diese Variable leer, soll das Programm beenden, ansonsten soll ein Dialog angezeigt werden, der darauf hinweist, dass Daten noch nicht gespeichert wurden.

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var ButtonSelected: Integer;
begin

  if CoreStatus <> '' then
  begin

    ButtonSelected := MessageDlg('Data not saved. Really quit?',mtConfirmation, mbOKCancel, 0);

    if ButtonSelected = mrCancel then PageControl1.ActivePage := Z_DataEntry;

  end;

end;

Ich würde es verstehen, aber Delphi anscheinend nicht

Kann mir jemand einen Tipp geben, wo der Denkfehler liegt?

Danke
Opa