Combobox в связанных таблицах

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  ComboBox2.Clear;
  with ZQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT DISTINCT marka FROM table2 WHERE product = :product');
      Params.ParamByName('product').Value:= ComboBox1.Text;
      Open;
      First;
    end;
  while not ZQuery1.EOF do
    begin
      ComboBox2.Items.Add(ZQuery1.FieldByName('marka').AsString);
      ZQuery1.Next;
    end;
end;

procedure TForm1.ComboBox2Select(Sender: TObject);
begin
  with ZQuery2 do //отвечает за набор данных, отображаемых в dbgrid'е
    begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT field1, field2, ..., fieldN FROM table3 WHERE field1 = :val_from_CB');
      Params.ParamByName('val_from_CB').Value:= ComboBox2.Text;
      Open;
      First;
    end;
end;

procedure TBase_client.ComboBox2Select(Sender: TObject);
begin
kod:=integer(ComboBox2.Items.Objects[ComboBox2.ItemIndex]);
  with AdoQuery2 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT relatives.Фамилия, relatives.Имя, relatives.Отчество, client.Телефон, ');
      SQL.Add('client.Электронная почта, client.Дата_рождения, client.Мать, client.Отец,');
      SQL.Add('client.[Брат\Сестра], doct.Учёт, doct.Специализация, client.Дата_Время_приёма, client.Причина');
      SQL.Add('FROM relatives INNER JOIN ((base INNER JOIN groups ON base.Код = groups.ParentID)');
      SQL.Add('INNER JOIN (doct INNER JOIN client ON doct.Код = client.Учёт_врача) ON groups.Код = client.ParentID)');
      SQL.Add('ON (base.id = relatives.id) AND (relatives.id = client.[Брат\Сестра]) AND (relatives.id = client.Отец)');
      SQL.Add('AND (relatives.id = client.Мать) AND (relatives.id = client.ФИО_клиента)WHERE 
      (((client.Parentid) = :kod))');
      Parameters.ParamByName('kod').Value:=kod;
      Open;
      First;
    end;
end;

 with AdoQuery2 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT * FROM client WHERE Parentid = :Группа');
      Parameters.ParamByName('Группа').Value:= kod;
      Open;
      First;
    end;