diff --git a/compiler/packages/fcl-passrc/src/paswrite.pp b/compiler/packages/fcl-passrc/src/paswrite.pp
index 72e5325..54cd897 100644
--- a/compiler/packages/fcl-passrc/src/paswrite.pp
+++ b/compiler/packages/fcl-passrc/src/paswrite.pp
@@ -1659,7 +1659,7 @@ procedure WritePasFile(AElement: TPasElement; const AFilename: string);
 var
   Stream: TFileStream;
 begin
-  Stream := TFileStream.Create(AFilename, fmCreate);
+  Stream := TFileStream.Create(AFilename, fmCreate or fmShareDenyNone);
   try
     WritePasFile(AElement, Stream);
   finally