Ejemplo de query que trabaja con Fechas en Delphi

fecha1:=datetostr( datetimepicker1.Date);
fecha2:=datetostr(datetimepicker2.Date);

query1.close;
query1.SQL.Clear;
//Confecciono Consulta
dato:='select * from venta where (empleado=:valor1) ';
query1.SQL.Add(dato);
//Añado el parámetro valor1
query1.parambyname('valor1').datatype:=ftinteger;
query1.parambyname('valor1').value:=p4_arrayVendedores[p4_i];
//Ejecuto Consulta
query1.Active:=true;

//Uso los datos según las fechas "desde" y "hasta"
query1.First ;
total:=0.0;

while (not query1.Eof) do
begin
if (((query1.FieldValues['fecha'])>=fecha1) and ((query1.FieldValues['fecha'])<=fecha2)) then
begin
total:=total+(query1.FieldValues['unidades']*query1.FieldValues['precioventa']);
p4_arrayTotales[p4_i]:=total;
end;
query1.Next;
end;