Проверка выполнения запроса ADOQuery

void __fastcall TForm5::Button1Click(TObject *Sender)
{
AnsiString sql = "Insert into Users (ID, Pass, Type) values ('";
sql+=Edit1->Text;
sql+="', '";
sql+=Edit2->Text;
sql+="', '";
sql+=ComboBox1->Text;
sql+="');";
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add(sql);
ADOQuery1->ExecSQL();
 
}

try {
AnsiString sql = "Insert into Users (ID, Pass, Type) values ('";
sql+=Edit1->Text;
sql+="', '";
sql+=Edit2->Text;
sql+="', '";
sql+=ComboBox1->Text;
sql+="');";
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add(sql);
ADOQuery1->ExecSQL();
}
 catch (...) {
MessageBox(0, "Ошибка добавления", "Ошибка", MB_OK);
}

AnsiString sql = "Insert into Users (ID, Pass, Type) values ('"+Edit1->Text+"' , '"+Edit2->Text+"', '" и т.д.

try {
AnsiString sql = "Insert into Users (ID, Pass, Type) values ('";
sql+=Edit1->Text;
sql+="', '";
sql+=Edit2->Text;
sql+="', '";
sql+=ComboBox1->Text;
sql+="');";
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add(sql);
ADOQuery1->ExecSQL();
MessageBox(0, "мы добавили", "ураааа", MB_OK);
}
 catch (...) {
MessageBox(0, "Ошибка добавления", "Ошибка", MB_OK);
}

TLocateOptions Ops;
    Ops.Clear();
      if ( ADOQuery1->Locate("Pass", Edit1->Text, Ops) ) {
MessageBox(0, "мы добавили", "ураааа", MB_OK);}