Chimera is an Open Source (MIT License) library for Delphi XE2 which provides a fast and cross platform JSON generator/parser (serializer/deserializer) under a license that doesn't suck.

For more information on json, please visit http://json.org

Here is a very simple example of how to use Chimera to parse, change and generate JSON.

uses
  chimera.json;

var
  i : integer;
  obj : IJSONObject;
begin
  obj := JSON('{"firstname":"leonard",'+
              ' "lastname":"nimoy",'+
              ' "email":['+
              '   "spock@enterprise.com",'+
              '   "lazydude@mars.com"]'+
              '}');
  Writeln(obj['firstname']);
  for i := 0 to obj.Arrays['email'].count-1 do
  begin
    Writeln(obj.Arrays['email'][i]);
  end;

  obj['lastname'] := 'shatner';
  writeln(obj.AsJSON);
  ReadLn;
end.