FormCloseQuery Prozedur aufrufen

[Luckie]

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  Button: DWORD;
begin
  Button := Messagebox(Handle, 'Schließen?', 'Test', MB_YESNO);
  if Button = ID_YES then
    CanClose := True
  else
    CanClose := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
end;

Auch wenn ich über den Button schließe, kommt die abfrage nur einmal. Oder verstehe ich da jetzt was falsch?