* Use value for fmShareNoLocking which does not overlap with classes fmCreate

rtl/objpas/sysutils/filutilh.inc

@@ -200,7 +200,7 @@ Const
   fmShareDenyRead  = $0030;
   fmShareDenyNone  = $0040;
   // internal to FPC
-  fmShareNoLocking = $0100;
+  fmShareNoLocking = $0080;
 
   { File seek origins }
   fsFromBeginning = 0;