GP>type
GP>  psr = ^sr;
GP>  sr = record
GP>    dateF : TDateTime;
GP>    count : integer;
GP>    ... : ...
GP>  end;

GP>// ...

GP>function CompareSR(Item1, Item2: Pointer): Integer;
GP>begin
GP>  Result := CompareDateTime(psr(Item1)^.dateF, psr(Item2)^.dateF);
GP>end;

GP>// ...

GP>List.Sort(@CompareSR)