uses SuperObject;

procedure TForm1.Button1Click (Sender: TObject);
var
  jo1, jo2, jo3: ISuperObject;
begin 
  jo1: = SO ('{"Name": "张三", "Age": "李四"}');
  ShowMessage (jo1.AsJSon (False, False));

  jo2: = SO ('(Name: Zhang San, Age: 李四)');
  ShowMessage (jo2.AsJSon (False, False));

  jo3: = SO ('(Name 1: Zhang San, Age 2: Li Si)');
  ShowMessage (jo3.AsJSon (False, False));

{But if double quotes are not used, spaces before and after: will also be recognized; double quotes should still be used if possible}
end ;