anchor.diff:    public {properties}
       property Items[Index : Integer] : TAbZipItem
         read  GetItem; default;
  +    property Stream : TStream // This can be used instead of Filename
  +      read GetStream write SetStream;
       property ZipArchive : {TAbZipArchive} TAbArchive
  -      read GetZipArchive;
  +      read FArchive;
       property ZipfileComment : AnsiString
         read GetZipfileComment
         write SetZipfileComment;
  
positive.code:     Result := TAbGzipArchive(FArchive).TarAutoHandle
    else if FArchive is TAbBzip2Archive then
      Result := TAbBzip2Archive(FArchive).TarAutoHandle;
  end;
  { -------------------------------------------------------------------------- }
  function TAbCustomZipBrowser.GetZipArchive : TAbArchive;
  begin
    if Assigned(FArchive) then
      Result := FArchive
    else
      Result := nil;
  end;
  { -------------------------------------------------------------------------- }
  function TAbCustomZipBrowser.GetZipfileComment : AnsiString;
  
negative.code:   Result := TAbZipItem(ZipArchive.ItemList[Index]);
  end;
  { -------------------------------------------------------------------------- }
  function TAbCustomZipBrowser.GetStream: TStream;
  begin
    if FArchive <> nil then
      Result := FArchive.FStream
    else
      Result := nil
  end;
  { -------------------------------------------------------------------------- }
  function TAbCustomZipBrowser.GetTarAutoHandle: Boolean;
  begin
    Result := False;
  