diff --git a/rtl/win/sysutils.pp b/rtl/win/sysutils.pp
index 2c4f27f95c..708af740de 100644
--- a/rtl/win/sysutils.pp
+++ b/rtl/win/sysutils.pp
@@ -48,12 +48,6 @@ Var
   Win32MinorVersion,
   Win32BuildNumber   : dword;
   Win32CSDVersion    : ShortString;   // CSD record is 128 bytes only?
-Const
-  { it can be discussed whether fmShareDenyNone means read and write or read, write and delete, see 
-    also http://bugs.freepascal.org/view.php?id=8898, this allows users to configure the used
-	value
-  }
-  fmShareDenyNoneFlags : DWord = 3;  
 
 { Compatibility with Delphi }
 function Win32Check(res:boolean):boolean;inline;
diff --git a/rtl/win32/system.pp b/rtl/win32/system.pp
index 27350431c7..1c8b07dfad 100644
--- a/rtl/win32/system.pp
+++ b/rtl/win32/system.pp
@@ -114,6 +114,13 @@ const
   Dll_Thread_Attach_Hook : TDLL_Entry_Hook = nil;
   Dll_Thread_Detach_Hook : TDLL_Entry_Hook = nil;
 
+Const
+  { it can be discussed whether fmShareDenyNone means read and write or read, write and delete, see 
+    also http://bugs.freepascal.org/view.php?id=8898, this allows users to configure the used
+	value
+  }
+  fmShareDenyNoneFlags : DWord = 3;
+  
 implementation
 
 var
diff --git a/rtl/win64/system.pp b/rtl/win64/system.pp
index 17b51200c0..56ec32773a 100644
--- a/rtl/win64/system.pp
+++ b/rtl/win64/system.pp
@@ -106,6 +106,13 @@ const
   Dll_Process_Detach_Hook : TDLL_Entry_Hook = nil;
   Dll_Thread_Attach_Hook : TDLL_Entry_Hook = nil;
   Dll_Thread_Detach_Hook : TDLL_Entry_Hook = nil;
+  
+Const
+  { it can be discussed whether fmShareDenyNone means read and write or read, write and delete, see 
+    also http://bugs.freepascal.org/view.php?id=8898, this allows users to configure the used
+	value
+  }
+  fmShareDenyNoneFlags : DWord = 3;  
 
 implementation