[firebase-br] EXECUTE BLOCK

[Paulo Geloramo]

FB 2.1.1
Delphi 2007

Para executar EXECUTE BLOCK com retorno,
estou usando o componente SQLQuery, esta retorando
o erro:

Token unknown - line 9, column 13
?.

SQL :=       'EXECUTE BLOCK (ID_PRODUTO INTEGER = :ID_PRODUTO) ' + #10;
SQL := SQL + 'RETURNS (ID_PONTO INTEGER, REMESSA INTEGER, VENDA INTEGER) ' + 
#10;
SQL := SQL + 'AS ' + #10;
SQL := SQL + 'BEGIN ' + #10;
SQL := SQL + '  FOR SELECT M.ID_PONTO ' + #10;
SQL := SQL + '      FROM PERFIL_ITEM M ' + #10;
SQL := SQL + '      JOIN PRODUTO P ON (P.ID_PERFIL = M.ID_PERFIL) ' + #10;
SQL := SQL + '      WHERE P.ID_PRODUTO = :ID_PRODUTO ' + #10;
SQL := SQL + '      INTO :ID_PONTO DO ' + #10;

Esta parando na linha acima, tentei passar zero para este parâmetro,
clear, sem sucesso.

Tem alguma sugestão para executar EXECUTE BLOCK?

[]s
Paulo