Lo modifique de esta forma:
Código Delphi
[-]
QRVentasPorFecha.Qusuarios.Close;
QRVentasPorFecha.Qusuarios.SQL.clear;
QRVentasPorFecha.Qusuarios.SQL.Add('select * from tabla1 WHERE fecha between fecha >=:Fecha1 AND Fecha <=:Fecha2');
QRVentasPorFecha.Qusuarios.Parameters[0].value := DateToStr(DTP1.Date);
QRVentasPorFecha.Qusuarios.Parameters[1].value := DateToStr(DTP2.Date);
QRVentasPorFecha.Qusuarios.Open;
QRVentasPorFecha.Preview;
Pero no lanza los datos.