anchor.diff:  begin
     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 := TZCompressionStream.Create(ADest, TZCompressionLevel.zcDefault, WindowBits);
     try
       ASource.Position := 0;
  
positive.code:   finally
      LZipStream.Free;
    end;
    {$ENDIF}
  end;
  
  procedure UnzipStream(const ASource: TStream; const ADest: TStream; const WindowBits: Integer = 15);
  
negative.code:   finally
      LZipStream.Free;
    end;
  end;
  
  
  