Besked ved afslutning!

Hej Udviklere!
Jeg har nu fået lavet en meddelelse, der popper op ved klik på en afslut knap! Nu mangler jeg bare at få meddelelsen til at poppe op, når der bliver trykket på krydset oppe i højre hjørne! Nogle der kan hjælpe??

Kode 

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := (MessageBox(Handle, 'Er du sikker?', 'Hmm', MB_YESNO) = mrYes);
end;