anchor.diff:      lexResult.Token := tkEOF;
       exit;
     end;
  -  // ------------ forse un numero..
  +  // ------------ a number?
   
     if CharInSet(lexState.CurrentChar, ['0'..'9']) then
     begin
  
positive.code:     exit;
    end;
  
    // ------------ forse una stringa..
  
    if IsStringSeparator(lexState.CurrentChar) then
    begin
  
negative.code:     exit;
    end;
  
    // ------------ a operator?
  
    opChar := lexState.currentChar;
    lexState.Advance;
  