[identsoft]

Por decir algo:
prueba

Código Delphi [-]
query.Parameters.ParamByName('fecha1').Value := Trunc(Datetimepicker1.Date); 
.. 
query.Parameters.ParamByName('fecha2').Value := Trunc(Datetimepicker1.Date);