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:
Cita:
|
Function unknown QUOTEDSTR
|
Uso delphi 6
Igualmente muchisimas gracias por todo