Связь двух комбобоксов

with ibqUsers do
      begin
        SQL.Text := 'select * from list_users order by type, fio';
        Open;
        // делаем комбобокс нередактируемым списком
        cbUsers.Style := csDropDownList;
        // запускаем цикл по всем записям, пока они не кончатся
        while not Eof do
        begin
          // заполняем список комбобокс фамилиями
          cbUsers.Items.Add(FieldByName('fio').AsString);
          // следующая запись в БД
          Next;
        end;

procedure TfAutorization.cbUsersChange(Sender: TObject);
begin
  // выбираем запись в БД соответсвующую номеру в комбобоксе
  ibqUsers.RecNo := cbUsers.ItemIndex + 1;

procedure TForm6.FormShow(Sender: TObject);
begin
with Unit2.DataModule2.qry  do
 begin
   Close;
   SQL.Clear;
   SQL.Add('select id from nedvigimost');
   Open;
   cbb2.Items.Clear;
   First;
   while not EOF do
    begin
        cbb2.Items.Add(FieldByName('id').AsString);
        Next;
    end;
    cbb2.ItemIndex:=0;
 end;
 
 with Unit2.DataModule2.qry  do
 begin
   Close;
   SQL.Clear;
   SQL.Add('select name from nedvigimost');
   Open;
   cbb6.Items.Clear;
   First;
   while not EOF do
    begin
        cbb6.Items.Add(FieldByName('name').AsString);
        Next;
    end;
 end;
end;

procedure TForm6.cbb2Change(Sender: TObject);
begin
   Unit2.DataModule2.qry.RecNo := cbb6.ItemIndex + 1;
end;