anchor.diff:    for i := 0 to LValueIdx do
       AExpressionRecord.Values[i] := LValues[i];
   
  -  AExpressionRecord.Kind := AExpressionKind;
  +  AExpressionRecord.Kind := LExpressionKind;
   end;
   
   class function TSearchExpressionService.Parse(const AExpression: utf8string
  
positive.code:             raise ESearchExpressionParserException.CreateFmt('Unexpected token found : "%s"', [TokenToStr(LToken)]);
          end;
        tkOpeningParenthesis, tkOpeningBracket:
          if AExpressionKind = ekSet then
            if LPrevToken <> tkNone then
              raise ESearchExpressionParserException.CreateFmt('Bad "between" expression. Unexpected "%s"', [TokenToStr(LToken)])
            else
  
negative.code:         else
            raise ESearchExpressionParserException.Create('Unexpected occurrence of % found');
        tkLess..tkGreaterOrEqual:
          case LExpressionKind of
            ekNum:
              if LPrevToken <> tkNone then
                raise ESearchExpressionParserException.Create('Bad numeric expression')
  