Query restringir busqueda

[el_barto]

Oye marcos no se que es lo que pasa ya mire y SysUtils si esta definida pero me sigue sacando el mismo inconveniente mira lo estoy haciendo asi

Código Delphi [-]
  IBQuery1.SQL.Text := 'select max(item_comp) as mayor from subprod where cod_prod = QuotedStr(DBlookupComboBox-Text)'

me saca un error:

Function unknown QUOTEDSTR

Uso delphi 6

Igualmente muchisimas gracias por todo