Dialog beim Beenden des Programms

[Stefanotis]

Ich hab mich eurer Tipps angenommen und mit Hilfe der Delphi Hilfe folgendes in den Code eingearbeitet:


folgendes Streht bei den Prozeduren und Variablen
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); weiter unten im Quellcode dann die Deklaration:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageDlg('Close the form?', mtConfirmation,
    [mbOk, mbCancel], 0) = mrCancel then
     CanClose := False;
end;

Allerdings klappts nicht. Wenn ich die Form nun schließe passiert nichts, sie wird einfach ohne Meldung geshclossen.

Die Deklaration der Prozedur hab ich so wie sie da steht aus der Delphi Hilfe übernommen.