Select com Time

estou usando esta rotina para selecionar campos q estejam dentro de determinado intervalo de data e hora, mas eu tenho dados q eram pra aparecer e nao retorna nada
[i:118c62f262]
dm1.sqlPesq.sql.Add(´SELECT A.LG_BLOQUEADO, A.CO_VISIT, A.NU_RG, A.NO_PESSOA, A.NO_EMPRESA, A.NO_FOTO, A.FOTO, B.Foto, B.CO_HISTORICO,B.NO_CONTATO,B.DS_OBS,´);
dm1.sqlPesq.sql.Add(´A.DS_DOCUMENTO,B.NU_ANDAR, B.CO_COND, B.DT_VISITA, B.DT_SAIDA, B.HR_ENTRADA, B.HR_SAIDA, B.NU_CRACHA, B.NO_EMPRESA as VISITA ´);
dm1.sqlPesq.sql.Add(´FROM CADVISIT A, HISTORICO B ´);
dm1.sqlPesq.sql.Add(´ WHERE B.CO_VISIT = A.CO_VISIT´);
dm1.sqlPesq.sql.Add(´ AND B.DT_VISITA BETWEEN :DT_Ini AND :DT_Fim ´);
dm1.sqlPesq.sql.Add(´ AND B.HR_ENTRADA BETWEEN :HR_INI AND :HR_FIM ´);
dm1.sqlPesq.sql.Add(´ ORDER BY B.DT_VISITA desc, B.HR_ENTRADA DESC´);
dm1.sqlPesq.ParamByName(´DT_Ini´).asDate := Trunc(dtpDt_Ini.date);
dm1.sqlPesq.ParamByName(´DT_Fim´).asDate := Trunc(dtpDt_Fim.date);
dm1.sqlPesq.ParamByName(´HR_INI´).asTime := Frac(dtpHr_Ini.time);
dm1.sqlPesq.ParamByName(´HR_FIM´).asTime := Frac(dtpHr_Fim.time);
[/i:118c62f262]