如何在JsonDataObjects中访问子对象

Question

假设我有以下JSON对象，如何使用Delphi和JsonDataObjects直接访问（不遍历整个项目数组），它的子数组项目

{"menu": {
    "header": "SVG Viewer",
    "items": [
        {"id": "Open"},
        {"id": "OpenNew", "label": "Open New"},
        null,
        {"id": "Help"},
        {"id": "About", "label": "About Adobe CVG Viewer..."}
    ]
}}

使用id = "About"直接访问子数组并读取label属性的Delphi代码是什么？