diff --git a/rtl/emx/sysutils.pp b/rtl/emx/sysutils.pp
index 0f7bd40849..8b8d05131a 100644
--- a/rtl/emx/sysutils.pp
+++ b/rtl/emx/sysutils.pp
@@ -871,10 +871,10 @@ begin
                 FileSetDate := -1
             else
                 begin
-                    FStat^.DateLastAccess := Hi (Age);
-                    FStat^.DateLastWrite := Hi (Age);
-                    FStat^.TimeLastAccess := Lo (Age);
-                    FStat^.TimeLastWrite := Lo (Age);
+                    FStat^.DateLastAccess := Hi (dword (Age));
+                    FStat^.DateLastWrite := Hi (dword (Age));
+                    FStat^.TimeLastAccess := Lo (dword (Age));
+                    FStat^.TimeLastWrite := Lo (dword (Age));
                     RC := DosSetFileInfo (Handle, ilStandard, FStat,
                                                               SizeOf (FStat^));
                     if RC <> 0 then
diff --git a/rtl/go32v2/sysutils.pp b/rtl/go32v2/sysutils.pp
index feeb9f1970..60cfe61d03 100644
--- a/rtl/go32v2/sysutils.pp
+++ b/rtl/go32v2/sysutils.pp
@@ -445,8 +445,8 @@ var
 begin
   Regs.Ebx := Handle;
   Regs.Eax := $5701;
-  Regs.Ecx := Lo(Age);
-  Regs.Edx := Hi(Age);
+  Regs.Ecx := Lo(dword(Age));
+  Regs.Edx := Hi(dword(Age));
   RealIntr($21, Regs);
   if Regs.Flags and CarryFlag <> 0 then
    result := -Regs.Ax
diff --git a/rtl/msdos/sysutils.pp b/rtl/msdos/sysutils.pp
index 67514c1e3d..2c6e68bf21 100644
--- a/rtl/msdos/sysutils.pp
+++ b/rtl/msdos/sysutils.pp
@@ -444,8 +444,8 @@ var
 begin
   Regs.bx := Handle;
   Regs.ax := $5701;
-  Regs.cx := Lo(Age);
-  Regs.dx := Hi(Age);
+  Regs.cx := Lo(dword(Age));
+  Regs.dx := Hi(dword(Age));
   MsDos(Regs);
   if Regs.Flags and fCarry <> 0 then
    result := -Regs.Ax
diff --git a/rtl/os2/sysutils.pp b/rtl/os2/sysutils.pp
index aff5ded1d6..89b9700d51 100644
--- a/rtl/os2/sysutils.pp
+++ b/rtl/os2/sysutils.pp
@@ -365,9 +365,9 @@ begin
   RC := DosQueryFileInfo(Handle, ilStandard, @FStat, SizeOf(FStat));
   if RC = 0 then
   begin
-    Time := FStat.TimeLastWrite + longint (FStat.DateLastWrite) shl 16;
+    Time := FStat.TimeLastWrite + dword (FStat.DateLastWrite) shl 16;
     if Time = 0 then
-      Time := FStat.TimeCreation + longint (FStat.DateCreation) shl 16;
+      Time := FStat.TimeCreation + dword (FStat.DateCreation) shl 16;
   end else
    begin
     Time:=0;
@@ -390,10 +390,10 @@ begin
    end
   else
    begin
-    FStat^.DateLastAccess := Hi (Age);
-    FStat^.DateLastWrite := Hi (Age);
-    FStat^.TimeLastAccess := Lo (Age);
-    FStat^.TimeLastWrite := Lo (Age);
+    FStat^.DateLastAccess := Hi (dword (Age));
+    FStat^.DateLastWrite := Hi (dword (Age));
+    FStat^.TimeLastAccess := Lo (dword (Age));
+    FStat^.TimeLastWrite := Lo (dword (Age));
     RC := DosSetFileInfo (Handle, ilStandard, FStat, SizeOf (FStat^));
     if RC <> 0 then
      begin
diff --git a/rtl/watcom/sysutils.pp b/rtl/watcom/sysutils.pp
index ce6e9d60ee..42e58f2f59 100644
--- a/rtl/watcom/sysutils.pp
+++ b/rtl/watcom/sysutils.pp
@@ -430,8 +430,8 @@ var
 begin
   Regs.Ebx := Handle;
   Regs.Eax := $5701;
-  Regs.Ecx := Lo(Age);
-  Regs.Edx := Hi(Age);
+  Regs.Ecx := Lo(dword(Age));
+  Regs.Edx := Hi(dword(Age));
   RealIntr($21, Regs);
   if Regs.Flags and CarryFlag <> 0 then
    result := -Regs.Ax
diff --git a/rtl/win16/sysutils.pp b/rtl/win16/sysutils.pp
index 0ab90508e8..8064e8c65b 100644
--- a/rtl/win16/sysutils.pp
+++ b/rtl/win16/sysutils.pp
@@ -471,8 +471,8 @@ var
 begin
   Regs.bx := Handle;
   Regs.ax := $5701;
-  Regs.cx := Lo(Age);
-  Regs.dx := Hi(Age);
+  Regs.cx := Lo(dword(Age));
+  Regs.dx := Hi(dword(Age));
   ZeroSegRegs(Regs);
   MsDos(Regs);
   if Regs.Flags and fCarry <> 0 then