anchor.diff:    begin
       Inc(LValueIdx);
       if LValueIdx > MAX_VALUES - 1 then
  -      raise ESearchExpressionParserException.Create('Too many values');
  +      raise ESearchExpressionParserException.Create(sTooManyValues);
       LValue := @LValues[LValueIdx];
     end;
   
  
positive.code:     else
      begin
        if not (LExpressionKind in [ekUnknown, ekText]) then
          raise ESearchExpressionParserException.Create('Unexpected char in expression');
        SetLength(LValue^, Length(LValue^) + LChar.Length);
        Move(LChar.Char[0], LValue^[Succ(Length(LValue^) - LChar.Length)], LChar.Length);
        LToken:=tkText;
  
negative.code:             repeat
                if c^ = '.' then
                  if LDot then
                    raise ESearchExpressionParserException.Create(sUnexpectedNumberFormat)
                  else
                    LDot:=true;
                LValue^:=LValue^+c^;
  