Два ComboBox. Вывод данных во втором по выбранному в первом.

void __fastcall TForm2::ComboBox3DropDown(TObject *Sender)
{
 switch (ComboBox3->ItemIndex)
  {
  case 0:
  ComboBox4->Items->Clear();
 ADOQuery1->Active=false;
 ADOQuery1->SQL->Clear();
 ADOQuery1->SQL->Add("select distinct centrFO from  sprav_oblast_centrFO" );
 ADOQuery1->Active=true;
 ADOQuery1->Open();
 //ComboBox4->Items->Clear();
  for (int i=0; i<ADOQuery1->RecordCount; i++)
{
ComboBox4->Items->Add(ADOQuery1->FieldValues["centrFO"]);
ADOQuery1->Next();
}
ADOQuery1->Close();
  break;
 
  case 1:
  ComboBox4->Items->Clear();
 ADOQuery1->Active=false;
 ADOQuery1->SQL->Clear();
 ADOQuery1->SQL->Add("select distinct sevzapFO from  sprav_oblast_sevzapFO" );
 ADOQuery1->Active=true;
 ADOQuery1->Open();
// ComboBox4->Items->Clear();
 for (int i=0; i<ADOQuery1->RecordCount; i++)
{
ComboBox4->Items->Add(ADOQuery1->FieldValues["sevzapFO"]);
ADOQuery1->Next();
}
ADOQuery1->Close();
  break;
 
 case 2:
 ComboBox4->Items->Clear();
 ADOQuery1->Active=false;
 ADOQuery1->SQL->Clear();
 ADOQuery1->SQL->Add("select distinct uFO from  sprav_oblast_uFO" );
 ADOQuery1->Active=true;
 ADOQuery1->Open();
//ComboBox4->Items->Clear();
 for (int i=0; i<ADOQuery1->RecordCount; i++)
{
ComboBox4->Items->Add(ADOQuery1->FieldValues["uFO"]);
ADOQuery1->Next();
}
ADOQuery1->Close();
}
}