请教怎么用Twebbrowser获得xml文档

请问如何用Twebbrowser获得xml文档？
可以用下面的代码获得Html，但是XML就不可以，应该如何取得。
procedure   TForm1.cNavigateComplete2(Sender:   TObject;
    const   pDisp:   IDispatch;   var   URL:   OleVariant);
begin
    showmessage((c.Document   as   IHTMLDocument2).body.outerHTML)
end;

[解决办法]
uses msxml;

....
var
v : variant;
aintf : IXMLDOMDocument;
begin
v := WebBrowser1.OleObject.Document.XMLDocument;
aintf := IUnknown(v) as IXMLDomDocument;
ShowMessage( aintf.xml);