谁有短信发送接口程序（delphi），能发个Demo的源码过来吗？(100分)

　　公司现在做移动梦网业务，需开发一个短信发送的接口程序，有哪位高人做过的能发个Demo的源码过来吗？不胜感谢！
　　用的是cmpp协议，华为写的api函数，主要是SubmitAExEx，GetDeliverSMExExEx这两个
调用时很容易出错！

http://www.playicq.com/dispdocprow.php?id=974

我需要的不是这个，是通过移动梦网的平台来发送短信，不是通过手机。

我都想知道拉！帮你顶，知道了告诉我！！

function SubmitAExEx(OrgTON : integer;
OrgNPI : integer;
OrgAddr :string;
DestTON : integer;
DestNPI : integer;
DestAddr :string;
PRI : integer;
RD : integer;
RP : integer;
SRR : integer;
MR : integer;
DCS : integer;
PID : integer;
Schedule :string;
Expire :string;
Default_ID : integer;
UDHI : integer;
UDLen : integer;
UserData :string;
ServiceSubType :string;
byMsgID : P_integer;
byPKTotal : integer;
byPKNumber : integer;
byMsglevel : integer;
byFeeUserType : integer;
sSPID :string;
sFeeType :string;
sFeeAddr :string;
sFeeCode :string;
byUserNum : integer;
sDestAddrs :string;
SM_ID : P_integer;
FCS : P_integer):integer;
stdcall;
external 'SMEIDll.dll';