From 34d3429e4326759192862dd4f4a6300132bc4bc6 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@idefix.freepascal.org>
Date: Mon, 26 Oct 2020 09:15:26 +0000
Subject: [PATCH] More precise FileAge

git-svn-id: trunk@47203 -
---
 rtl/objpas/sysutils/filutil.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/sysutils/filutil.inc b/rtl/objpas/sysutils/filutil.inc
index e61a344386..cb1612ea2a 100644
--- a/rtl/objpas/sysutils/filutil.inc
+++ b/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;