anchor.diff:    private
       function GetItemPtr(N: integer): PATTreeHelperRecord;
     public
  +    destructor Destroy; override;
       property ItemPtr[N: integer]: PATTreeHelperRecord read GetItemPtr;
     end;
   
  
positive.code:   Result:= PATTreeHelperRecord(InternalGet(N));
  end;
  
  end.
negative.code:     X1, Y1, X2, Y2: integer;
      Level: integer;
      Icon: integer;
      Title: string;
      class operator =(const A, B: TATTreeHelperRecord): boolean;
    end;
  
  