[简单问题-100两奉上] WEB Service Example in D6 (100分)

原文照抄这个例子
http://www.csdn.net/develop/article/26/26147.shtm
http://www.pconline.com.cn/pcedu/empolder/gj/delphi/0404/346146_2.html
它的例子是D7的，我只有D6
在 D6 下 找不到 GetSMSWebServiceSoapPort
察看了生成的 文件 是这样的
type
SMSWebServiceSoapPort = interface(IInvokable)
['{FDCD1649-49C1-4DF6-A872-B7418747D3E7}']
procedure sendXml(const Carrier: WideString; const Id: WideString; const Password: WideString; const ToMobile: WideString; const Message_: WideString; const MsgType: WideString; out Result: WideString); stdcall;
end;

所以我改用SMSWebServiceSoapPort 结果在D6中编译挫
[Error] ProjectSMS.pas(39): Object or class type required

这是怎么回事里？ 没谢Delphi已经太久了
谢谢

Project Project_webservice raised exception clas EASccessViolation with 'Access violation at address 004613EB in module 'Project_webservice.exe' Read of address 00000000, Process Stopped.