El problema es la hora.
Modifica la hora de la fecha que utilizas como parámetro.
Código Delphi
[-]
procedure TFormConsulta.DateTimePicker1Change(Sender: TObject);
begin
LabelDesde.Caption := DateToStr(DateTimePicker1.Date);
Filtra(DateTimePicker1.Date, DateTimePicker2.Date);
end;
procedure TFormConsulta.DateTimePicker2Change(Sender: TObject);
begin
LabelHasta.Caption := DateToStr(DateTimePicker2.Date);
Filtra(DateTimePicker1.Date, DateTimePicker2.Date);
end;
procedure TFormConsulta.Filtra(Desde, Hasta: TDateTime);
begin
Desde := RecodeTime(Desde, 0, 0, 0, 0);
Hasta := RecodeTime(Hasta, 23, 59, 59, 999);
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * from Tiket');
ADOQuery1.SQL.Add('where FechaCre between :Fecha1 and :Fecha2');
ADOQuery1.Parameters.ParamByName('Fecha1').Value := Desde;
ADOQuery1.Parameters.ParamByName('Fecha2').Value := Hasta;
ADOQuery1.Open;
end;