anchor.diff:    Tree: TTreeView;
     Node, NodeParent: TTreeNode;
     Range: TATRangeInCodeTree;
  -  NCounter, i: integer;
  +  i: integer;
   begin
     //Str = '[ ((x1, y1, x2, y2), level, 'title', icon), ... ]'
     //code gets fixed number of numbers/strings from result, ignoring brackets
  
positive.code: var
    NPos: integer;
    //
    function IsDigit(ch: char): boolean; inline;
    begin
      Result:= (ch>='0') and (ch<='9');
    end;
    //
    function GetInt: integer;
  
negative.code:   Node:= nil;
    NodeParent:= nil;
    NLevelPrev:= 1;
  
    {
    NCounter:= 0;
    StatusProgress.Show;
    StatusProgress.Progress:= 0;
    }
  
    while NPos<=Length(Str) do
    begin
  