Wybierz zdarzenie OnCloseQuery dla głównej formy i wpisz tam:
CanClose = false;
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose) { CanClose = false; }