anchor.diff:    TVisualGridSearchParser = class
     public
       class procedure Parse(const AExpression: utf8string;
  -      var AExpressionKind: TExpressionKind; out AExpressionRecord: TExpressionRecord); overload;
  +      AExpressionKind: TExpressionKind; out AExpressionRecord: TExpressionRecord); overload;
       class function Parse(const AExpression: utf8string): TExpressionRecord; overload;
     end;
   
  
positive.code:     Char: array [0..3] of AnsiChar;
    end;
  
    procedure GetChar(APos: PAnsiChar; out AChar: TUTF8Char);
    begin
      AChar.Length := UTF8CharacterLength(APos);
  
negative.code:   end;
  
  begin
    AExpressionRecord := Default(TExpressionRecord);
    if AExpression = '' then
      Exit;
  
  