Rewrote TJSON to use TDictionary