diff --git a/packages/fcl-sound/src/fpwavreader.pas b/packages/fcl-sound/src/fpwavreader.pas
index 3d76bc3141..268f0a9507 100644
--- a/packages/fcl-sound/src/fpwavreader.pas
+++ b/packages/fcl-sound/src/fpwavreader.pas
@@ -74,7 +74,7 @@ begin
   if (FFileName <> '') and Assigned(fStream) then begin
     fStream.Free;
   end;
-  fStream := TFileStream.Create(FileName, fmOpenRead);
+  fStream := TFileStream.Create(FileName, fmOpenRead + fmShareDenyWrite);
   if Assigned(fStream) then begin
     Result := LoadFromStream(fStream);
     FFileName := FileName;