La forma correcta de usarlo es:
Código Delphi
[-]
IBDataSet2.Close;
IBDataSet2.SelectSQL.Clear;
IBDataSet2.SelectSQL.Add ('select * from subcomp where cod_componente = ' + Quotedstr (DBLookupComboBox1.KeyValue) + 'and item_comp = ' + Quotedstr (DBLookupComboBox3.KeyValue));
IBDataSet1.Prepare;
IBDataSet2.Open;
El active esta demás.