anchor.diff:    begin
       PartObj:= TATLinePartClass.Create;
       PartObj.Data:= Part;
  -    Ed.Attribs.Add(AX[i], AY, cBadRegexTag, 1, 0, PartObj);
  +    Ed.Attribs.Add(AX[i], AY, ATag, 1, 0, PartObj);
     end;
   
     Ed.Invalidate;
   end;
   
   procedure EditorHighlightBadRegexBrackets(Ed: TATSynEdit; AOnlyClear: boolean);
  +const
  +  cBadRegexTag = 10;
   var
     Bads: TATIntArray;
     OpenedRound: TATIntArray;
  
positive.code:   begin
      for i:= 0 to High(Bads) do
        Dec(Bads[i]);
      EditorHighlightCharsInLine(Ed, 0, Bads, apstSymbolBad);
    end;
  end;
  
  
negative.code:   Ar[High(Ar)]:= Val;
  end;
  
  procedure EditorHighlightCharsInLine(Ed: TATSynEdit; AY: integer;
    const AX: TATIntArray; AStyle: TAppThemeStyleId; ATag: integer);
  var
    PartObj: TATLinePartClass;
    Part: TATLinePart;
  