Зависимость значений ComboBox 2 и 3 от выбора в ComboBox1

ADOConnection1.GetTableNames(ComboBox1.Items, False);

ADOQuery.Active:=false; 
ADOQuery.SQL.Clear;
ADOQuery.SQL.Text:='select club from '+QADOQueryTable.FiledByName('tablr_name').Value;
ADOQuery.Active:=false;

ADOQuery.Active:=true; //Сори

+QADOQueryTable.FiledByName('tablr_name').Value;

//Пример для MySQL
//FormShow
ADOQueryTable.Active:=false;
ADOQueryTable.SQL.Clear;
ADOQueryTable.SQL.Text:='SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES';
ADOQueryTable.Active:=true; 
 
//DBLookupComboBox1 подключай к ADOQuery1
 
// На OnClick DBLookupComboBox1 
 
ADOQuery.Active:=false;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Text:='select club from '+QADOQueryTable.FiledByName(TABLE_NAME').Value;
ADOQuery.Active:=true;

procedure TForm1.ComboBox1Select(Sender:TObject);
begin
  if ADODataSet1.Active then Close;
  ADODataSet1.CommandText := 'SELECT club FROM '+TComboBox(Sender).Text+' ORDER BY club ';
  ADODataSet1.Open;
end;

procedure TForm3.DBLookupComboBox2Click(Sender: TObject);
begin
   DataModule2.ADOQuery6.Active:=false;
   DataModule2.ADOQuery6.SQL.Clear;
   DataModule2.ADOQuery6.SQL.Text:='SELECT nazvanie FROM razdel WHERE razdelklas LIKE '+QuotedStr(DBLookupComboBox1.Text)+''+' GROUP BY nazvanie;';
   DataModule2.ADOQuery6.Active:=true;
end;
procedure TForm3.DBLookupComboBox3Click(Sender: TObject);
begin
   DataModule2.ADOQuery7.Active:=false;
   DataModule2.ADOQuery7.SQL.Clear;
   DataModule2.ADOQuery7.SQL.Text:='SELECT nazvanie FROM podrazdel WHERE poddrazdel LIKE '+QuotedStr(DBLookupComboBox1.Text)+''+' GROUP BY nazvanie;';
   DataModule2.ADOQuery6.Active:=true;
end;

procedure TForm3.DBLookupComboBox3Click(Sender: TObject);
begin
DataModule2.ADOQuery7.Active:=false; <--------Какой датасет закрыл
DataModule2.ADOQuery7.SQL.Clear;
DataModule2.ADOQuery7.SQL.Text:='SELECT nazvanie FROM podrazdel WHERE poddrazdel LIKE '+QuotedStr(DBLookupComboBox1.Text)+''+' GROUP BY nazvanie;';
DataModule2.ADOQuery6.Active:=true;  <---------Какой датасет открыл
end;

procedure TForm3.DBLookupComboBox3Click(Sender: TObject);
begin
DataModule2.ADOQuery7.Active:=false; <--------Почему 7 закрываем, если в нем должны сделать фильтрацию???
DataModule2.ADOQuery7.SQL.Clear;
DataModule2.ADOQuery7.SQL.Text:='SELECT nazvanie FROM podrazdel WHERE poddrazdel LIKE '+QuotedStr(DBLookupComboBox1.Text)+''+' GROUP BY nazvanie;';
DataModule2.ADOQuery6.Active:=true;  <--------я так понимаю. его открываем, потому что по его ключевому полю будет производить фильтрацию???
end;

procedure TForm3.DBLookupComboBox2Click(Sender: TObject);
begin
   DataModule2.ADOQuery6.Active:=false;
   DataModule2.ADOQuery6.SQL.Clear;
   DataModule2.ADOQuery6.SQL.Text:='SELECT nazvanie FROM razdel r, klas k WHERE r.kodklas = k.kodklas  AND nazvanie = ' + QuotedStr(DBLookupComboBox1.Text) +' GROUP BY nazvanie';
   DataModule2.ADOQuery6.Active:=true;
end;

procedure TForm3.DBLookupComboBox3Click(Sender: TObject);
begin
   DataModule2.ADOQuery7.Active:=false;
   DataModule2.ADOQuery7.SQL.Clear;
   DataModule2.ADOQuery7.SQL.Text:='SELECT nazvanier FROM razdel r, klas k, podrazdel p WHERE r.kodklas = k.kodklas AND r.razdelklas = p.razdelklas   AND  k.nazvanie = '+QuotedStr(DBLookupComboBox1.Text)+' GROUP BY nazvanie';
   DataModule2.ADOQuery7.Active:=true;
end;

procedure TForm3.DBLookupComboBox3Click(Sender: TObject);
begin
   DataModule2.ADOQuery7.Active:=false;
   DataModule2.ADOQuery7.SQL.Clear;
   DataModule2.ADOQuery7.SQL.Text:='SELECT nazvanie FROM razdel r, klas k, podrazdel p WHERE r.kodklas = k.kodklas AND r.razdelklas = p.razdelklas   AND  k.nazvanie = '+QuotedStr(DBLookupComboBox1.Text)+' GROUP BY nazvanie';
   DataModule2.ADOQuery7.Active:=true;
end;