Fórum execute statment... #59856

Olá!
Estou fazendo uma pesquisa de contas a receber, numa procedure PESQ_CR no firebird 2.0 seguinte codigo:
instsql = ´select TITULO, CLI_CODIGO, PARCELA, VALOR, TT_CODIGO, STATUS, SALDO,
EMISSAO, VENCIMENTO, NR_BOLETO FROM CONTAS_RECEBER
WHERE EMPRESA = ´ || CAST(:empresa AS varchar(5));

for execute statement instsql into :titulo_cr, :cliente_cr, :parcela_cr, :valor_cr, :tt_codigo_cr, :status_cr,
:saldo_cr, :emissao_cr, :vencimento_cr, :nr_boleto_cr do suspend;

Tenho um clientdataset de pesquisa, e quando vou add os campos nele dá o seguinte erro:
invalid argument in execut statement - cannot convert to string
at procedure ´pesq_cr´

Agradeço qualquer ajuda!