anchor.diff:    begin
       LogEvent(LogObjConstDest, 'TIndexEntry.Destroy');
       topic := nil;
  -    // inherited Destroy;
  +    inherited Destroy;
     end;
   
   
  
positive.code:   private
      entries: TStringList;
    public
      CONSTRUCTOR Create;
      DESTRUCTOR Destroy; override;
      FUNCTION Count: longint;
      FUNCTION GetLabels: TStringList;
      FUNCTION GetTopic(aPos: longint): TTopic;
      PROCEDURE Add(anIndexEntry: TIndexEntry);
    end;
  
  
  
negative.code:     topic: TTopic;
      flags: uint8;
    public
      constructor Create(aName: String; aTopic: TTopic; aFlags: uint8);
      destructor  Destroy; override;
      property    getTopic: TTopic read topic;
      function    getLabel: String;
      function    isGlobal: boolean;
      function    getLevel: integer;
    end;
  
  
  