Inconveniente con asignacion a un Dataset

[dmagui]

Gracias ya lo logre hacer solo tenia que hacer lo siguiente

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));
   IBDataSet2.Open;
   IBDataSet2.Active := True;