如何在Delphi中打印JSON？

例：
我有输入线：

{"menu": {"header": "JSON viewer","items": [{"id": "Delphi"},{"id": "Pascal","label": "Nice tree format"},null]}}

并希望以文本形式获得可读结果：

{
   "menu":{
      "header":"JSON viewer","items":[
       {
         "id":"Delphi"
       },{
         "id":"Pascal","label":"Nice tree format"
       },null
      ]
   }
}

我发现了许多PHP和C#的例子,但不是Delphi.
有人可以帮忙这样的功能吗？

更新 – 使用SuperObject的解决方案：

function FormatJson (InString: WideString): string; // Input string is "InString"
var
  Json : ISuperObject;
begin
  Json := TSuperObject.ParseString(PWideChar(InString),True);
  Result := Json.AsJson(true,false); //Here comes your result: pretty-print JSON
end;