Opcion de cerrar el programa

[ilichhernandez]

Hola amigos, estoy tratando de enviar un mensaje de confirmacion de cierre de programa de la siguiente manera...

Código Delphi [-]
procedure Tform_principal.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
form_salir.showmodal;
end;

Aqui llamé a la ventana que hara la pregunta si realmente se quiere salir....

el boton aceptar

Código Delphi [-]
procedure Tform_salir.cxButton1Click(Sender: TObject);
begin
exit;
end;

y el boton cancelar

Código Delphi [-]
procedure Tform_salir.cxButton2Click(Sender: TObject);
begin
form_salir.close;
end;

pero resulta que el "aceptar" no hace nada...... y coloco cancelar y se cierra la ventana pero no el programa.....

Alguna idea por favor..... parece facil pero no se me ocurre...