Transformar XML em Json

Existe hoje uma função simples de transformar um XML em Json ? Sei que hoje tem a função XmlParser ou a TXmlManager e a JsonObject ou FwJsonDeserialize, mas ler todo o xml para popular um json é meio trabalhoso.