antes de cerrar genere un mesaje

[el_barto]

Buenos Dias Foro

Tengo una duda como hacer para que cuando a mi programa a la ventana le de cerrar (x), primero me salga un mensaje donde me pregunte si estoy seguro de salirme del Aplicativo.

Gracias.

[delphi.com.ar]

Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  with Application do
    CanClose := MessageBox('¿Desea cerrar?', PChar(Title), MB_ICONQUESTION + MB_YESNO) = IDYES;
end;

Saludos!

[el_barto]

Muchas Gracias Funciono a la Perfeccion.