More precise FileAge

git-svn-id: trunk@47203 -

rtl/objpas/sysutils/filutil.inc

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