anchor.diff:    finally
       LZipStream.Free;
     end;
  -  {$ENDIF}
  -
  -
   end;
   
   
  
positive.code:   finally
      LZipStream.Free;
    end;
    {$ENDIF}
  end;
  
  procedure UnzipStream(const ASource: TStream; const ADest: TStream; const WindowBits: Integer = 15);
  
negative.code:   Assert(Assigned(ASource));
    Assert(Assigned(ADest));
  
    LZipStream := TZDecompressionStream.Create(ASource, WindowBits);
    try
      ASource.Position := 0;
  