diff --git a/rtl/win/sysfile.inc b/rtl/win/sysfile.inc
index 78a8d58ba2..9387efff82 100644
--- a/rtl/win/sysfile.inc
+++ b/rtl/win/sysfile.inc
@@ -235,7 +235,7 @@ begin
       shflags := file_Share_Write
   else
     if ((filemode and fmshareDenyNone) = fmshareDenyNone) then
-      shflags := file_Share_Read + file_Share_Write;
+      shflags := fmShareDenyNoneFlags;
   { convert filemode to filerec modes }
   case (flags and 3) of
    0 : begin