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