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