More precise FileAge

git-svn-id: trunk@47203 -
(cherry picked from commit 34d3429e4326759192862dd4f4a6300132bc4bc6)

rtl/objpas/sysutils/filutil.inc

@@ -354,7 +354,7 @@ begin
   Result:=FindFirst(FileName,A,Info)=0;
   if Result then
     begin
-      FileDateTime:=FileDatetoDateTime(Info.Time);
+      FileDateTime:=Info.TimeStamp;
       FindClose(Info);
     end;
 end;