anchor.diff:    finally
       LZipStream.Free;
     end;
  -  {$ENDIF}
   end;
   
   procedure UnzipStream(const ASource: TStream; const ADest: TStream; const WindowBits: Integer = 15);
  
positive.code:   Assert(Assigned(ASource));
    Assert(Assigned(ADest));
  
    {$IFDEF Delphi11Alexandria}
    // *** WORKAROUND ISSUE RSP-35516 on D11 ***
    // https://quality.embarcadero.com/projects/RSP/issues/RSP-35516 (Delphi 11 Alexandria will throw exception here)
    ASource.Position := 0;
    ADest.CopyFrom(ASource, ASource.Size);
    ADest.Position := 0;
    // do nothing content remains uncompressed (better than an exception!)
    {$ELSE}
    LZipStream := TZDecompressionStream.Create(ASource, WindowBits);
    try
      ASource.Position := 0;
  
negative.code:   finally
      LZipStream.Free;
    end;
  end;
  
  
  