anchor.diff:      X1, Y1, X2, Y2: integer;
       Level: integer;
       Icon: integer;
  -    Title: string[63];
  +    Title: string;
       class operator =(const A, B: TATTreeHelperRecord): boolean;
     end;
   
  
positive.code:   private
      function GetItemPtr(N: integer): PATTreeHelperRecord;
    public
      property ItemPtr[N: integer]: PATTreeHelperRecord read GetItemPtr;
    end;
  
  
negative.code:   Result:= PATTreeHelperRecord(InternalGet(N));
  end;
  
  destructor TATTreeHelperRecords.Destroy;
  var
    i: integer;
  begin
    //free strings
    for i:= Count-1 downto 0 do
      ItemPtr[i]^.Title:= '';
    inherited Destroy;
  end;
  
  end.
  