A mí me enseñaron un método un pelín bestia, pero que funciona...
Yo reescribo la query dentro de una función (porque los parámetros de selección son variables) y en la cláusula where tengo esto:
Código Delphi
[-] qf.SQL.Add('AND TRUNC(DS.FECHA) BETWEEN ' + ''''
+ formatdatetime('dd/mm/yyyy',fechaIni.date) + '''' +' AND '
+ '''' + formatdatetime('dd/mm/yyyy',fechaFin.date) + '''');