Fórum Rotina de aniversariantes por período. #429805

Estou tentando fazer uma rotina para me retornar os aniversariantes em um determinado período, porem estou recebendo a mensagem " input parameter mismatch for procedure" abaixo segue a parte do código para analise.
Antes informações sobre o que estou utilizando:
Delphi XE3 e SGBD FIREBIRD 2.1.
No Firebird, criei uma Procedure conf abaixo:
SET TERM ^ ;

create or alter procedure PRC_ANIVERSARIO (
DT_INI timestamp,
DT_FIM timestamp)
returns (
NOME varchar(60) collate PT_BR,
DT_NASC timestamp)
as
begin
WHILE (DT_INI <= DT_FIM) DO
BEGIN
FOR SELECT NOME, DATA_NASCIMENTO FROM sindicalizado WHERE
EXTRACT(DAY FROM DATA_NASCIMENTO) = EXTRACT(DAY FROM :DT_INI) AND
EXTRACT(MONTH FROM DATA_NASCIMENTO) = EXTRACT(MONTH FROM :DT_INI)
ORDER BY NOME, DATA_NASCIMENTO INTO :NOME, :DT_NASC DO SUSPEND;
DT_INI = DT_INI + 1;
END
End^

SET TERM ; ^

/* Following GRANT statetements are generated automatically */

GRANT SELECT ON SINDICALIZADO TO PROCEDURE PRC_ANIVERSARIO;

/* Existing privileges on this procedure */

GRANT EXECUTE ON PROCEDURE PRC_ANIVERSARIO TO SYSDBA;

em Delphi, para executar a procedure, o codigo que estou utilizando é:
DM_Pesq.SdsAniversario.Close;
DM_Pesq.SdsAniversario.CommandText := 'select * from prc_aniversario(' + dt_ini +', ' + dt_fim+')';
DM_Pesq.SdsAniversario.Open;

Onde dt_ini = NOW e dt_fim = NOW + Quantidade de dias desejado.

Quando em entro com o cod em SQL gerado acima no commandText direto no SqlDataSet, funciona, mais quando entro pelo codigo acima, recebo a mensagem:
input parameter mismatch for procedure
Não sei onde estou errando.

Ps. é minha primeira vez utilizando Procedure no Firebird. Esta rotina retirei da internet, porem não consegui utilizar em meu programa.
Desde já agradeço a todos que me ajudarem.