diff --git a/packages/paszlib/src/ziputils.pas b/packages/paszlib/src/ziputils.pas
index 75fb357924..6cd991b434 100644
--- a/packages/paszlib/src/ziputils.pas
+++ b/packages/paszlib/src/ziputils.pas
@@ -98,7 +98,7 @@ begin
   fp := nil;
   try
     case mode of
-      fopenread: fp  := TFileStream.Create(strpas(filename), fmOpenRead);
+      fopenread: fp  := TFileStream.Create(strpas(filename), fmOpenRead or fmShareDenyWrite);
       fopenwrite: fp := TFileStream.Create(strpas(filename), fmCreate);
       fappendwrite:
       begin