program main;
var
soap : variant;
ReturnXML : array of variant;
Item1: Variant;
begin
soap := CreateOleObject('MSSOAP.SoapClient30');
soap.mssoapinit('http://xx?wsdl');
ReturnXML := soap.yy('mdrd', '', '2012-04-20', '2012-04-20');
Item1 := ReturnXML[0];
showmessage( Item1.item(0).text );
end.