procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  MsgResult: Integer;
begin

  CanClose := True;

  if CoreStatus <> '' then
  begin

    MsgResult := MessageDlg('Daten speichern?', mtConfirmation, mbYesNoCancel, 0);

    case MsgResult of

      mrYes:
        begin
          ShowMessage('Daten werden gespeichert... Programm wird beendet.');
        end;

      mrNo:
        begin
          ShowMessage('Daten werden nicht gespeichert... Programm wird beendet.');
        end;

      mrCancel:
        begin
          ShowMessage('Programm wird fortgesetzt.');
          CanClose := False;
        end;

    end;

  end;

end;