помогите найти ошибку пожалуйста)

if (specialnost->State==0) //Выбор режима – добавление или изменение
{//Передача параметров процедуре добавления
 DataModule2->IBStoredProc6->ParamByName("NAZVANIE")->Value=Edit1->Text;
DataModule2->IBStoredProc6->ParamByName("SHIFR_SPECIALNOSTI")->Value=MaskEdit1->Text;
DataModule2->IBStoredProc6->ParamByName("KVALIFIKACIA")->Value=n;
DataModule2->IBQuery2->ParamByName("FACULTET_IDFACULTET")->Value=DataModule2->IBQuery1->FieldByName("IDFACULTET")->Value;
DataModule2->IBStoredProc6->ExecProc();//Вызов процедуры добавления
  }
  else
 {DataModule2->IBStoredProc8->ParamByName("NAZVANIE")->Value=Edit1->Text;
DataModule2->IBStoredProc8->ParamByName("SHIFR_SPECIALNOSTI")->Value=MaskEdit1->Text;
DataModule2->IBStoredProc8->ParamByName("KVALIFIKACIA")->Value=n;
DataModule2->IBQuery2->ParamByName("FACULTET_IDFACULTET")->Value=DataModule2->IBQuery1->FieldByName("IDFACULTET")->Value;
DataModule2->IBStoredProc8->ExecProc();
}//Выхов процедуры изменения
DataModule2->IBTransaction1->Commit();
//Переоткрытие запроса просмотра для отображения сделанных изменений
DataModule2->IBQuery2->Close();
DataModule2->IBQuery2->Open();
}