[chainik]

я для себя изобрел процедуру которая принимает SQL запрос и заполняет ComboBox.Items (или любой объект типа TStrings)
у меня это оформлено в виде dll и я просто подключаю ее к проекту
попробуй, может понравится

Код:

{----------------------------------------------------
    процедура заполняет ComboBox.Items,
    DBGrid.PickList
-----------------------------------------------------}
procedure SetItems(IBDB:TIBDataBase;List:TStrings;SQLstr:shortstring);stdcall;
var
IBQ:TIBQuery;
begin
IBQ:=TIBQuery.Create(IBDB.Owner);
IBQ.Database:=IBDB;
with IBQ do    //заполн. PickList
    begin
    SQL.Text:=SQLstr;
    Open;
//    First;
    List.Clear;
    while not eof do
        begin
        if Fields[0].AsString <> '' then
            List.Add(Fields[0].AsString);
        Next;
        end;
    Close;Destroy;
    end;    //with
end;