fcl-passrc: use fmShareDenyNone when writing pas

git-svn-id: trunk@47816 -
(cherry picked from commit 3f7d3e17cdcef7d7f1779cdeb59d24ad5716a8ab)

packages/fcl-passrc/src/paswrite.pp

@@ -1668,7 +1668,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