Связанные таблицы - в ComboBox и CheckListBox

procedure TForm1.FormShow(Sender: TObject);
begin
  while not MyQuery1.Eof do
    begin
      ComboBox1.Items.Add(MyQuery1.fieldByName('name1').AsString);
      MyQuery1.Next
    end;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  CheckListBox1.Items.Clear;
  while not MyQuery2.Eof do
    begin
      CheckListBox1.Items.Add(MyQuery2.fieldByName('name2').AsString);
      MyQuery2.Next
    end;
end;

id := integer(Combo1.items.Objects[Combo1.ItemIndex]);
showMessage('ID='+inttostr(ID));
MyQuery2.Parameters.ParamByName('p1').datatype := pfInteger;
MyQuery2.Parameters.ParamByName('p1').Value := id;

//  MyQuery2.Params.ParamByName('p1').datatype := pfInteger;

MyQuery2.SQL.Text:='SELECT id, name2, z_id FROM b where z_id=:p1');

MyQuery2.SQL.Text:='SELECT id, name2, z_id FROM b where z_id=126');

//MyQuery2.Parameters.ParamByName('p1').Datatype := pfinteger;
//MyQuery2.Parameters.ParamByName('p1').Value := id;

procedure TForm1.FillCombo(q:TMyQuery);
begin
  combo1.items.clear;
  q.first;
  while not q.eof do
  begin
    combo1.items.addObject(q.fieldByName('name').asString, TObject(q.FieldByName('id').AsInteger));
    q.next;
  end
end;
procedure TForm1.FillList(q:TMyQuery);
begin
  lb1.items.Clear;
  q.first;
  while not q.eof do
  begin
    lb1.items.addObject(q.fieldByName('name2').asString, TObject(q.FieldByName('id').AsInteger));
  end;
end;
 
procedure TForm1.FormCreate(...);
begin
//предполагаем, что оба датасета мы открыли уже где-то. Но можно и тут открыть
  FillCombo(dm1.q1);
end;
 
procedure TForm1.Combo1Change(...);
begin
  if combo1.itemIndex=-1 then exit;
  q1.locate('id', integer( combo1.items.Objects[combo1.itemIndex]), []);
  FillList(q2);
end;