用Delphi10.3 创建一条JSON数据的第二种方法，并格式化输出