Erro em SQL - Delphi 7

Oi... Pessoal...
Agradeço muito se alguém conseguir a me ajudar a encontrar o erro...

Muito obrigada
Fernanda

            SqL.Add('SELECT COUNT(CODEVENTO) AS TOTAL');

            Sql.Add('  FROM LOG_ACESSOS');

            Sql.Add(' WHERE CODEVENTO = _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 _horaini AND _horafim');

            ParamByName('p_periodo').AsString:=qry_dados.fieldByName('CODPERIODO').AsString;

            ParamByName('p_horaini').AsDate:=dtpdataini.Date;

            ParamByName('p_horafim').AsDate:=dtphorafim.Date;