Messagebox

[aanil]

Hola a todos.

El siguiente codigo se lo escribo en Delphi en el evento onClose, para un boton que cierra la aplicacion.

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if application.MessageBox('Desea Salir','Salir',mb_yesNo)=idYES then
application.Terminate;

end;
end.

Mi pregunta va por lo siguiente: si presiono el boton SI de Messagebox, cierra la aplicacion, pero lo mismo hace el boton NO. ¿Que me falta para que el boton No cierre el messagebox y se quede en la aplicacion.

Gracias por tomarnos en cuenta.