[ALexandr555]

Код:

     if FindFirst(put + '*.*', faAnyFile, SearchRec) = 0 then
      begin
       repeat Application.ProcessMessages;
        if (SearchRec.Attr and faDirectory) <> faDirectory then
         begin
          result.Add(SearchRec.Name);
         end

у меня вопрос почему файлы находятся именно в алфавитном порядке?
нельзя ли задать чтобы в порядке последнего изменения файлов?

[Pilot_Red]

Ну... я так подозреваю потому, что в функцию ты передаешь параметры связанные именно с названием файлов. Далее, я думаю нужно уже ручками сортировку проводить..

[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);

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