anchor.diff:  { ===== TAbArchive ========================================================== }
   type
     TAbArchive = class(TObject)
  -  protected
  -    class function GetMaxFileSize(): Int64; virtual;
     public
       FStream         : TStream;
       FStatus         : TAbArchiveStatus;
   
  -  protected {property variables}
  +  protected {property variables}    //These break Encapsulation
       FArchiveName    : string;
       FAutoSave       : Boolean;
       FBaseDirectory  : string;
  
positive.code:   inherited Destroy;
  end;
  { -------------------------------------------------------------------------- }
  function TAbArchiveItem.GetCompressedSize : Int64;
  begin
    Result := FCompressedSize;
  
negative.code:   FPadLock.Locked := False;
  end;
  { -------------------------------------------------------------------------- }
  //TODO: Remove
  class function TAbArchive.GetMaxFileSize: Int64;
  begin
      Result := High(LongWord);
  end;
  { -------------------------------------------------------------------------- }
  procedure TAbArchive.UnTagItems(const FileMask : string);
    {clear tags for all items that match the mask}
  var
  