Zablokowanie zamknięcia formularza kombinacją ALT+F4

Aby zablokować zamknięcie formularza za pomocą kombinacji ALT+F4 należy utworzyć zdarzenie OnCloseQuery dla formularza i ustawić w nim CanClose na false:

Unit1.cpp

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
   CanClose = false;
}

Aby była możliwość zamknięcia programu np. za pomocą przycisku Button1 wywołujemy metodę Terminate() obiektu TAplication:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Application->Terminate();
}