procedure TForm1.Button1Click(Sender: TObject);
var
straccept: string;
jo: ISuperObject;
begin
straccept :='<xml><URL><![CDATA[http://y14572q738.iask.in]]>'+
'</URL><ToUserName><![CDATA[gh_ae80c2d464a0]]></ToUserName>'+
'<FromUserName><![CDATA[oMuCUtyk3BYvxWzUQ7ZHsWuP9__Y]]>'+
'</FromUserName><CreateTime>12345</CreateTime><MsgType>'+
'<![CDATA[text]]></MsgType><Content><![CDATA[peixiaobinhaorena]]>'+
'</Content><MsgId>1</MsgId></xml>';
jo := XMLParseString(straccept,true);
ShowMessage(jo.S['URL']);
var
straccept: string;
jo: ISuperObject;
begin
straccept :='<xml><URL><![CDATA[http://y14572q738.iask.in]]>'+
'</URL><ToUserName><![CDATA[gh_ae80c2d464a0]]></ToUserName>'+
'<FromUserName><![CDATA[oMuCUtyk3BYvxWzUQ7ZHsWuP9__Y]]>'+
'</FromUserName><CreateTime>12345</CreateTime><MsgType>'+
'<![CDATA[text]]></MsgType><Content><![CDATA[peixiaobinhaorena]]>'+
'</Content><MsgId>1</MsgId></xml>';
jo := XMLParseString(straccept,true);
ShowMessage(jo.S['URL']);