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