//CONFIRMAR SAÍDA DO SISTEMA

void __fastcall TForm1::Button1Click(TObject *Sender)

{

if (Application->MessageBox("DESEJA FECHARA?","Meu Programa", MB_YESNO|MB_ICONQUESTION ) == IDYES)

Action = caNone;

else

CanClose = false;

}