Yo te recomendaría hacerlo en SQL "del lado del servidor"
Código:
begin
Query1.Sql.Text := 'SELECT * '
'FROM TABLA '+
'WHERE FECHA BEETWEN :Fecha1 AND :Fecha2';
...
Query1.ParamByName('Fecha1').AsDateTime := ...;
Query1.ParamByName('Fecha2').AsDateTime := ...;
Query1.Open;
end;