[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

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