Rango de fechas

[[enecumene]]

Código Delphi [-]
Form1:=TForm1.Create(self);
   try
     Query1.Close;
     Query1.SQL.Clear;
     Query1.SQL.Text := 'select fecha from tabla where fecha >= :desde and    fecha <= :hasta order by fecha';
    Query1.parambyname('desde').value := DBTimePicker1.date;
    Query1.parambyname('hasta').value := DBTimePicker2.date;
    Query1.Open;
    Form1.QuickRpt1.Preview;
 finally
   Form1.free;
 end;

Saludos.