void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
if (Alguna_Variable == No_Se_Puede_Cerrar_El_Formulario)
Action=caNone;
else //si se puede cerrar el formilario
Action=caFree;
// si solo pones:
//Action=caNone
//entonces nunca se cerraria tu formulario
}