[chainik]

Трудностей не понял. Моя процедура никак не затрагивает твой запрос поскольку динамически создает свой компонент IBQuery. На экране ничего не изменяется.
Ну не хочешь так- вот второй способ.
Пробегаешь свой запрос и разбрасываешь Items по разным DBComboBox
Впрочем есть и третий-кидаешь на форму 3 IBQuery и привязываешь их к твоим DBComboBox (совет Delphist)

Код:

1:
 {
SetItems(IBDataBase1,DBComboBox1.Items,'SELECT Family WHERE A=1');
SetItems(IBDataBase1,DBComboBox2.Items,'SELECT Family WHERE A=2');
SetItems(IBDataBase1,DBComboBox3.Items,'SELECT Family WHERE A=3');
  }

2:
procedure SetItems;
begin
with Form1,IBQuery1 do
while not Eof do
    begin
        case FieldByName('A').AsInteger of
        1:DBComboBox1.Items.Add(FieldByName('Family').AsString);
        2:DBComboBox2.Items.Add(FieldByName('Family').AsString);
        3:DBComboBox3.Items.Add(FieldByName('Family').AsString);
        end;    //case
    Next
    end;
end;