转自(http://expert.csdn.net/Expert/topic/689/689601.xml?temp=.4222376)lovingkiss(你要答案我要分) 
'*******************************************************************
'参数:?User = 自己手机号&; pwd = 密码&; rcv = 接收方手机号码&; msg = 经过url编码的内容
'*******************************************************************
Dim strData As New Inet
strData.Protocol = icHTTP
strData.RequestTimeout = 10
Info = "http://sms.sina.com.cn/cgi-bin/ccgi/esina?user=" & 手机号码 & "&pwd=" & 密码 & "&rcv=" & 接受手机 & "&msg=" & Server.HTMLEncode信息)
    BackInfo = strData.OpenURL(Info, 0)
    If BackInfo = "" Or IsNumeric(Left(BackInfo, 2)) = False Then BackInfo = "信息发送失败"在delphi中应该用哪个控件去实现这几句代码的功能?