Delphi - no me respeta las fechas con between

Hola a todos tengi una tabla de paradox en la cual tiene un campo de típo fecha, realizo una consulta por rango de fechas con dos datetimepicker donde el usuario espeficica la fecha inicial y la fecha final, el codigo es algo asi:
DATAMODULE1.QUERY1.SQL.Add('SELECT * FROM ventas WHERE fecha between "+fechaini.date+" and "+fechafin.date+"'); pero me manda el mensaje: "type mismatch in expression

Cual es el problema, mi campo es de tipo date

gracias

Prueba algo como esto:

DATAMODULE1.QUERY1.SQL.Add('SELECT * FROM ventas WHERE fecha between :DESDE and :HASTA');
DATAMODULE1.QUERY1.ParamByName('DESDE').AsDate := DateTimePickerDesde.Date;
DATAMODULE1.QUERY1.ParamByName('HASTA').AsDate := DateTimePickerHasta.Date;