Problema com acesso a data no Interbase

[b:6fef568abf]Tenho esta tabela e quando vou, utilizando uma query, realizar uma consulta dos aniversariantes do dia, ele diz que há erro na conversão de dados.[/b:6fef568abf]

CONST
c_SQL_Verifica : STRING = ´SELECT * FROM NIVER ´+
´WHERE ´+
´DATANASCIMENTO =:P_DATANASCIMENTO´;
VAR
DIA,MES,ANO : Word;
dDataNiver : TDateTime;
BEGIN
DECODEDATE(NOW,ANO,MES,DIA);

dDataNiver := StrToDate(DIA+´/´+MES+´/´+ANO);

WITH DM.qryVerifica do
Begin
CLOSE;
SQL.CLEAR;
SQL.ADD(c_SQL_Verifica);
ParamByName(´P_DATANASCIMENTO´).AsDate := dDataNiver;
OPEN;
end;


END;
[b:6fef568abf]Meu problema é que o ano não pode ser contado, visto que a pessoa dificilmente nasceu no ano vigente.[/b:6fef568abf]

[b:6fef568abf]Tabela Utilizada:[/b:6fef568abf]

NIVER
---------

CODNIVERINT
NOMEVARCHAR(75)
DATANIVERDATE
FONERESVARCHAR(14)
CELULARVARCHAR(14)