Определить возраст файла

[Kronos913]

Задача такая: нужно в списке файлов отметить файлы, которым больше года.

   d:=FileAge({имя файла});
   If StrToInt( FormatDateTime('yyyy', Now-FileDateToDateTime(d)))>1900 then begin {действие} end

Что-то мне подсказывает, что этот код несколько кривоват. Есть ли более оптимальные методы?

[evg_m]

uses dateutils;

n:=FileAge(...);
d:=FileDateToDate(n);
y:=YearOf(date);
dd:=YearsBetween(now, d);

P.S. ЕСЛИ список файлов получается посредством FileSearch то там УЖЕ есть дата файла (FileAge).

[Kronos913]

Файлы у меня так находятся. И записываются в TStringList

procedure DirSearch(Dir: string; const Mask : string; SL: TStrings; const Under: boolean);
var
   SearchRec: TSearchRec;

begin
   Dir := IncludeTrailingBackslash(Dir);
   if FindFirst(Dir + Mask, faAnyFile, SearchRec) = 0 then


     repeat
       Application.ProcessMessages;
       if (SearchRec.Attr and faDirectory)<>0 then begin

         if Under and (SearchRec.name<>'.') and (SearchRec.name<>'..') then
                 DirSearch(Dir + SearchRec.name, mask, sl, true)
       end
       else
          If not(SearchRec.Name='.') and not(SearchRec.Name='..') then
           Sl.Add(Dir + SearchRec.Name);

     until FindNext(SearchRec)<>0;
   FindClose(SearchRec);
end;

[evg_m]

FileSearch то там УЖЕ есть дата файла (FileAge).

http://www.delphibasics.ru/TSearchRec.php