大侠帮忙，通过网页发送手机短信(100分)

我是在用的ICS控件，我这样写，但是点击发送后，过一段时间返回：
can't resolve hostname to ip address.

请问我应该怎样写呢，谢谢各位了


procedure Tfrm_sms.Button1Click(Sender: TObject);
var
recstr,sendstr : tstream;
pas : string ;
i : integer;
begin
recstr:=tmemorystream.Create;
sendstr:=tmemorystream.Create;

pas:='user_id='+inttostr(1234)+ '&password='+httpencode('abcde')+'&mobile_phone=' +inttostr(13888888888)+ '&msg=' + httpencode('测试短信')+ '&sendtime='+''+ '&subcode='+inttostr(2194);
sendstr:=tstringstream.create(pas);
httpcli1.RcvdStream:=recstr;
httpcli1.SendStream:=sendstr;
httpcli1.URL:='http://bms.hichina.com/sms_gateway/sms_api';
httpcli1.Post;
end;

无人做过吗？

ics 是异步组件，　用ｉｎｄｙ吧，简单些．