anchor.diff:      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;
  +    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;
   
   
  
positive.code:   begin
      LogEvent(LogObjConstDest, 'TIndexEntry.Destroy');
      topic := nil;
      // inherited Destroy;
    end;
  
  
  
negative.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;
  
  
  