Добавление значения в ComboBox

ComboBox1->Items->Add(Edit1->Text);

void __fastcall TForm5::FormActivate(TObject *Sender)
{ int f=0;
  ComboBox1->Items->Clear();
  for (int i = 0; i < ADOQuery1->RecordCount-1; i++) {
  for (int j = 0; j < ComboBox1->Items->Count-1; j++) {
      if (ADOQuery1->FieldByName("Водитель")->AsString=ComboBox1->Items[j]->Text)
      f=1;
  }
  if (f==0) ComboBox1->Items->Add(ADOQuery1->FieldByName("Водитель")->AsString);
  ADOQuery1->Next();
  f=0;
 
  }
}

MainForm->ADOQuery1->DisableControls();
ComboBox1->Items->Clear();
  try{
      MainForm->ADOQuery1->Close();
      MainForm->ADOQuery1->SQL->Clear();
      MainForm->ADOQuery1->SQL->Add("SELECT DISTINCT Department FROM Glavnaya");
      MainForm->ADOQuery1->Open();
      MainForm->ADOQuery1->First();
      while(!MainForm->ADOQuery1->Eof)
      {
       ComboBox1->Items->Add(MainForm->ADOQuery1->FieldByName("Department")->AsString);
       MainForm->ADOQuery1->Next();
      }
     }catch(...){}
int i = ComboBox1->Items->Count;
Panel1->Caption = "Êîëè÷åñòâî íàèìåíîâàíèé îòäåëîâ: " + IntToStr(i);
MainForm->ADOQuery1->EnableControls();

void __fastcall TFindDepartment::ComboBox1Change(TObject *Sender)
{
 
 
    MainForm->ADOQuery1->Close();
    MainForm->ADOQuery1->SQL->Clear();
    MainForm->ADOQuery1->SQL->Add("Select * from Glavnaya WHERE  Department LIKE '"+ComboBox1->Text+"'");
    MainForm->ADOQuery1->Open();
 
    
}