void __fastcall TmainForm::FormCreate(TObject *Sender)
{
_load_settings();

FIBDatabase->DBName = DBServerNameEdit->Text + ":" + DBServerPatchEdit->Text;
FIBDatabase->DBParams->Add("user_name=" + DBServerUNameEdit->Text.LowerCase());
FIBDatabase->DBParams->Add("password=" + DBServerPasswordEdit->Text.LowerCase());
FIBDatabase->DBParams->Add("lc_ctype=WIN1251");
FIBDatabase->Connected = True;
}

есть TpFibErrorHandler

void __fastcall TmainForm::pFibErrorHandlerFIBErrorEvent(TObject *Sender,
EFIBError *ErrorValue, TKindIBError KindIBError, bool &DoRaise)
{
DoRaise = false;

switch (((TComponent *)Sender)->Tag)
{
case 1 :
{
if (KindIBError == keLostConnect)
{
MessageBox (mainForm->Handle , "Ñîåäèíåíèå ñ áàçîé óïàëî..:-(", "Îøèáêà...", MB_OK|MB_ICONERROR);
}


break;
}
}

}


дык вот ......после мессаже бокс .....вылетает оконце ...такого плана

'Cannot perform operation - DB is not open'

как убрать?