Erro na SQL

            SqL.Add(´SELECT COUNT(CODEVENTO) AS TOTAL´);
            Sql.Add(´  FROM LOG_ACESSOS´);
            Sql.Add(´ WHERE CODEVENTO = :p_periodo´);
            Sql.Add(´   AND CAST (DATAHORA AS TIME ) BETWEEN ´ + QuotedStr(TimeToStr(hrcorrente)));
            Sql.Add(´   AND ´ + QuotedStr(TimeToStr(hrcorrente + intervalo)));
           
//******************************************************************
//A partir daqui a impressão que dá é que ele ignora... pois pega qualquer data do 
//banco...

 Sql.Add(´AND CAST (DATAHORA AS DATE) BETWEEN :p_horaini AND :p_horafim´);
            ParamByName(´p_periodo´).AsString:=qry_dados.fieldByName(´CODPERIODO´).AsString;
            ParamByName(´p_horaini´).AsDate:=dtpdataini.Date;
            ParamByName(´p_horafim´).AsDate:=dtphorafim.Date;