* Patch from Zeljko Avramovic to allow uppercase characters in non-quoted names (Bug ID 26831)

git-svn-id: trunk@28788 -

packages/fcl-json/src/jsonscanner.pp

@@ -342,7 +342,7 @@ begin
         Inc(TokenStr);
         Result := tkSquaredBraceClose;
       end;
-    'a'..'z','_':
+    'a'..'z','A'..'Z','_':
       begin
         TokenStart := TokenStr;
         repeat