anchor.diff:  { ===== TAbArchive ========================================================== }
   type
     TAbArchive = class(TObject)
  +  protected
  +    class function GetMaxFileSize(): Int64; virtual;
     public
       FStream         : TStream;
       FStatus         : TAbArchiveStatus;
  
positive.code:   Result := False;
  end;
  { -------------------------------------------------------------------------- }
  procedure TAbArchiveItem.SetCompressedSize(const Value : LongInt);
  begin
    FCompressedSize := Value;
  end;
  
negative.code:       read FMode;
      property Spanned : Boolean
        read FSpanned;
      property SpanningThreshold : Int64
        read  GetSpanningThreshold
        write SetSpanningThreshold;
      property Status : TAbArchiveStatus
  