Foros Club Delphi - Cadena XML en un Memo

Hola, tengo el contenido de un archivo XML en una variable WideString, quisiera desplegarla elegantemene en un Memo adentro de mi aplicación, es decir con la identación que haga su lectura amigable al usuario(en mi variable tengo toda la cadenota). Tengo que hacerlo a pie o puedo utilizar algun truco, rutina o algo ya implementado?

Lo tengo en mi cadena así:

Código:

<?xml version="1.0" encoding="UTF-8" ?><soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:oxml="http://www.vu.mx/co/ws/oxml/"><soapenv:Header><wsse:Security soapenv:mustUnderstand="1" xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd"><wsse:UsernameToken>wsse:Username>SOALL4510144M4</wsse:Username><wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-.0#PasswordText">hqsVP+Rqkx7oid0CQ+uex9XA6GoOj1/oNV+FPCz0pD6itoXnk</wsse:Password></wsse:UsernameToken></wsse:Security></soapenv:Header

Así quiero desplegarlo en el Memo:

Código:

<?xml version="1.0" encoding="UTF-8" ?> 

 <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:oxml="http://www.vu.mx/co/ws/oxml/">

 <soapenv:Header>

  <wsse:Security soapenv:mustUnderstand="1" xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">

   <wsse:UsernameToken>

    <wsse:Username>SOALL4510144M4</wsse:Username> 

    <wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText">DIHN8OH/QIhqsVP+Rqkx7oid0CQ+uex9XAoOj1/oNV+FPCz0pD6itoXnk</wsse:Password> 

   </wsse:UsernameToken>

  </wsse:Security>

  </soapenv:Header>

 <soapenv:Body>

Saludos y gracias de antemano. :)