anchor.diff:      lexResult.Token := tkEOF;
       exit;
     end;
  -  // ------------ forse un numero..
  +  // ------------ a number?
   
     if CharInSet(lexState.CurrentChar, ['0'..'9']) then
     begin
  
positive.code: 
  uses
    Classes, variants, sysutils,
    mArrays;
  
  const
    sInvalidString = 1;
  
negative.code:     exit;
    end;
  
    // ------------ an identifier?
  
    if CharInSet(lexState.CurrentChar, ['A'..'Z','a'..'z','_', '@']) then
    begin
  