Marcos Roman ya lo logre muchisimas gracias aqui mando la instruccion para las personas que tengan este tipo de inconvenientes y nuevamente 10000000 miillones de gracias.
Código Delphi
[-]
IBQuery1.SQL.Text := 'select max(item_comp) as mayor from subprod where cod_prod =' + QuotedStr(DBLookupComboBox1.KeyValue);
Gracias Totalessss
esto lo busque en internet pero ya no recuedo la pagina, la busco y la publico en este hilo gracias