te falto cerrar la linea de la consulta, y es el error que te esta dando:
Código Delphi
[-]Qusuarios.Close;
Qusuarios.SQL.clear;
Qusuarios.SQL.Add('WHERE fecha between >= :Fecha1 AND Fecha <= :Fecha2');
Qusuarios.Parameters[0].value := DateToStr(DTP1.Date);
Qusuarios.Parameters[1].value := DateToStr(DTP2.Date);
Qusuarios.Open;
QRVentasPorFecha.Preview;