execute statement

Bom dia.Possuo uma stored procedure qual eu preciso de retornar alguns campos de uma tabela. Esta procedure me traz um cálculo que não pode ser feito via Delphi. Porém no select eu precisaria de cláusulas Where para fazer uma filtragem dos dados, entretanto ao executar a procedure o Firebird me retorna o erro:Unsuccessful execution caused by an unavailable resource.
Invalid argument in EXECUTE STATEMENT - cannot convert to string.
At procedure 'SP_TEMPOMEDIO' line: 20, col: 3.
Segue o código da stored procedure:CREATE OR ALTER PROCEDURE SP_PRODUTOQTDE (
  DATAINI DATE,
  DATAFIM DATE,
  CLI_CODIGO INTEGER)
RETURNS (
  CLI_CODIGO INTEGER,
  PRO_CODIGO INTEGER,
  PRO_CUSTO DECIMAL(15,2))
AS
  FOR EXECUTE STATEMENT 'SELECT CLI_CODIGO, PRO_CODIGO FROM VENDAPRODUTO WHERE VEN_CODIGO IS NOT NULL'||CASE WHEN DATAINI IS NOT NULL THEN ' AND VEN_DATA >= '||COALESCE(:DATAINI AS VARCHAR(10))||CASE WHEN DATAFIM IS NOT NULL THEN ' AND VEN_DATA <= '||COALESCE(:DATAFIM AS VARCHAR(10))||CASE WHEN CLI_CODIGO IS NOT NULL THEN ' AND CLI_CODIGO = '||COALESCE(:CLI_CODIGO AS VARCHAR(6)) DO
  BEGIN
    -- select para trazer custo de compras
    -- select para deduzir as vendas
    PRO_CUSTO = COMPRAS - VENDAS;
  END
END
   PS.: Desculpem a gafe de ter postado a pergunta sem editar por completo. 

tente assim:

CREATE OR ALTER PROCEDURE SP_PRODUTOQTDE (
  DATAINI DATE,
  DATAFIM DATE,
  CLI_CODIGO INTEGER)
RETURNS (
  CLI_CODIGO INTEGER,
  PRO_CODIGO INTEGER,
  PRO_CUSTO DECIMAL(15,2))
AS
DECLARE VARIABLE CQUERY VARCHAR(500)
BEGIN
  CQUERY = 'SELECT CLI_CODIGO, PRO_CODIGO FROM VENDAPRODUTO WHERE VEN_CODIGO IS NOT NULL';

  IF (NOT DATAINI IS NULL) THEN
    CQUERY = CQUERY || ' AND VEN_DATA >= ''' || CAST(:DATAINI AS VARCHAR(10)) || '''';

  IF (NOT DATAFIM IS NULL) THEN
    CQUERY = CQUERY || ' AND VEN_DATA <= ''' || CAST(:DATAFIM AS VARCHAR(10)) || '''';

  IF (NOT CLI_CODIGO IS NULL) THEN
    CQUERY = CQUERY || ' AND CLI_CODIGO = ' || CAST(:CLI_CODIGO AS VARCHAR(6));

  FOR EXECUTE STATEMENT CQUERY
  INTO ...
  DO
  BEGIN
    -- select para trazer custo de compras
    -- select para deduzir as vendas
    PRO_CUSTO = COMPRAS - VENDAS;
  END

END

Obrigado Emerson, funcionou divinamente.