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;