onclosequery

[angelp4492]

Hola buenas como estan, tengo el siguiente problema a ver si pueden ayudarme.
Quiero cerrar una aplicación y que me salga un mensage, que en realidad eso es lo que quiero hacer, así que esto lo pongo en el onclosequery tal que así

Código Delphi [-]

canClose:=False;

if Application.MessageBox('¿Seguro que desea abandonar?','Atención',mb_OkCancel +
  mb_IconQuestion)= idOk then begin
  canClose:=True;
end
else begin
  canClose := False;
end;

Hasta aquí todo bien, lo que quier ahora es que cuando pulse un botón salir que me llame al mismo evento onclosequery para hacer las mismas operaciones.Gracias.