高手请进！Delphi中如何操作XML？能给出例子吗？

var
    pXML: WideString;
    strXML: WideString;
    oReq: IXMLHTTPRequest;
    reMsg :String;
    root: IXMLDOMDocument;
    node: IXMLDOMNode;
    iLength: Integer;
begin
    strXML := txtXML.Text;
    If strXML = '' Then
        Exit;    txtResponse.Text := txtResponse.Text + '上传数据';
    pXML := 'xml='  + strXML;
    pXML := URLEncoding(pXML);
    oReq := CreateOleObject('Msxml2.XMLHTTP.3.0')  as IXMLHTTPRequest;
    oReq.Open('POST', POST_URL + 'zhgs.asp', False,varNull,varNull);
    iLength := Length(pXML);
    oReq.setRequestHeader('Content-Length', IntToStr(iLength));
    oReq.setRequestHeader('CONTENT-TYPE', 'application/x-www-form-urlencoded');
    oReq.send(pXML);    txtResponse.Text := txtResponse.Text + '上传完毕';    reMsg := '';
    reMsg := oReq.responseText;
    root := oReq.responseXML As IXMLDOMDocument;
    node := root.selectSingleNode('message');
    if node <> nil then
    begin
        reMsg := node.Text;
    end;    txtResponse.Text := txtResponse.Text + reMsg;
    Application.MessageBox(PChar('回应：'+reMsg),'上传提示',MB_ICONINFORMATION);
end;