anchor.diff:  type
     TTreeHelperRest = class
     private
  -    class function IsHead(const S: UnicodeString; ch: WideChar): boolean;
  -    class function IsArr(const S: UnicodeString): boolean;
  +    class function IsHeaderOfChar(const S: UnicodeString; ch: WideChar): boolean;
  +    class function IsHeaderLine(const S: UnicodeString): boolean;
       class function GetLevel(ch: WideChar): integer;
     public
       class procedure GetHeaders(Ed: TATSynEdit; Data: TATTreeHelperRecords);
  
positive.code:   begin
      S:= St.Lines[iLine];
      if S='' then Continue;
      if IsArr(S) then
      begin
        NLen:= St.LinesLen[iLine-1];
        if (NLen>0) and (NLen<=Length(S)) then
  
negative.code: 
  implementation
  
  class function TTreeHelperRest.IsHeaderOfChar(const S: UnicodeString; ch: WideChar): boolean;
  var
    i: integer;
  begin
  