用DELPHI语言怎么实现发短信功能

DELPHI语言对接验证码短信接口DEMO示例
//接口类型：互亿无线触发短信接口，支持发送验证码短信、订单通知短信等。
//账户注册：请通过该地址开通账户 http://user.ihuyi.com/?DKimmu
//注意事项：
//（1）调试期间，请使用用系统默认的短信内容：您的验证码是：【变量】。请不要把验证码泄露给其他人。
//（2）请使用 用户名 及 APIkey来调用接口，APIkey在会员中心可以获取；
//（3）该代码仅供接入互亿无线短信接口参考使用，客户可根据实际需要自行编写；

// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL     : http://106.ihuyi.com/webservice/sms.php?wsdl
//  >Import : http://106.ihuyi.com/webservice/sms.php?wsdl:0
// Encoding : utf-8
// Version  : 1.0
// (2013/11/26 10:37:24 - - $Rev: 10138 $)
// ************************************************************************ //

unit sms;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

const
  IS_OPTN = $0001;
  IS_REF  = $0080;


type

  // ************************************************************************ //
  // The following types, referred to in the WSDL document are not being represented
  // in this file. They are either aliases[@] of other types represented or were referred
  // to but never[!] declared in the document. The types from the latter category
  // typically map to predefined/known XML or Borland types; however, they could also 
  // indicate incorrect WSDL documents that failed to declare or import a schema type.
  // ************************************************************************ //
  // !:int             - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:string          - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:srting          - "http://www.w3.org/2001/XMLSchema"[Gbl]

  SubmitResult         = class;                 {
    "http://106.ihuyi.com/"[GblCplx] }
  ChangePasswordResult = class;                 {
    "http://106.ihuyi.com/"[GblCplx] }
  GetNumResult         = class;                 {
    "http://106.ihuyi.com/"[GblCplx] }