[ALexandr555]

понял
создаю TList
с результатами
и

Код:

type
 PSRec=^TSearchRec;

function DateCompare(Item1, Item2: Pointer): Integer;
begin
if PSRec(Item1)^.Time> PSRec(Item2)^.Time then Result:=1 else
if PSRec(Item1)^.Time=PSRec(Item2)^.Time then Result:=0 else
  Result:=-1;
end;

var
SRList:TList;
begin
SRList:=TList.Create;
if F SRList.Count> 1 then SRList.Sort(DateCompare);

если кому пригодится