anchor.diff:    End;
   end;
   
  -procedure TJSONTag_JSONQuery.OnExecute(var aToken: String; aTokenParser: tTokenParser);
  +procedure TJSONTag_JSONQuery.OnExecute(var aToken: String;
  +  aTokenParser: tTokenParser);
   Var
     FJSONValueRoot: TJSONValue;
     FJSONValue: TJSONValue;
  
positive.code:   Result := 'JSONQUERY';
  end;
  
  function TJSONTag_JSONQuery.Execute(aProjectItem: TProjectItem;aTagName: String; aTokens: tTokenProcessor): String;
  var
    LFunctionAParser: tFunctionAParser;
  begin
    Try
      Try
        self.oVariables :=  TProjectItem(aProjectItem).oVariables;
  
        LFunctionAParser := tFunctionAParser.Create(aProjectItem, aTokens, foOutput, aTagName);
  
        LFunctionAParser.OnExecute := OnExecute;
  
  
negative.code:   Result := '';
  end;
  
  function TJSONTag.Execute(aProjectItem: tProjectItem; aTagName: String;
    aTokens: tTokenProcessor): String;
  begin
    Result := '';
  end;
  
  function TJSONTag.GetJSONObjectVariable(aToken: string): TVariable;
  Var
    FVariable: TVariable;
  begin
  