Не удается вывести содержимое полей разных Table в DBComboBox-ах

void __fastcall TForm1::FormCreate(TObject *Sender)
 
{
      // открыть список Городов в  DBComboBox1 на первой вкладке TabSheet1
   Table1->Open();
   DBComboBox1->Clear();
   for (Table1->First(); !Table1->Eof; Table1->Next())
      DBComboBox1->Items->Add(Table1->FieldByName("Town")->AsString);
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
      // Номер дома DBComboBox4 На TabSheet1
   Table1->Open();
   DBComboBox4->Clear();
   for (Table1->First(); !Table1->Eof; Table1->Next())
      DBComboBox4->Items->Add(Table1->FieldByName("House")->AsString);
 
      // Город  DBComboBox2 на TabSheet1
   Table1->Open();
   DBComboBox2->Clear();
   for (Table1->First(); !Table1->Eof; Table1->Next())
      DBComboBox2->Items->Add(Table1->FieldByName("Town")->AsString);
 
 
      // Улицы  DBComboBox3 TabSheet1
   Table1->Open();
   DBComboBox3->Clear();
   for (Table1->First(); !Table1->Eof; Table1->Next())
      DBComboBox3->Items->Add(Table1->FieldByName("Street")->AsString);
 
        // Эндоскопист DBComboBox1 на TabSheet3
   Table2->Open();
   DBComboBox1->Clear();
   for (Table2->First(); !Table2->Eof; Table2->Next())
   DBComboBox1->Items->Add(Table2->FieldByName("Endoscopist")->AsString);
 
         // Доктор  в DBComboBox5 на TabSheet3
   Table2->Open();
   DBComboBox5->Clear();
   for (Table2->First(); !Table2->Eof; Table2->Next())
      DBComboBox5->Items->Add(Table2->FieldByName("MyDoc")->AsString);
 
         // аппарат в  DBComboBox5 на TabSheet3
   Table2->Open();
   DBComboBox6->Clear();
   for (Table2->First(); !Table2->Eof; Table2->Next())
      DBComboBox6->Items->Add(Table2->FieldByName("Apparat")->AsString);
   }