急！哪位大哥帮我用MSComm组件编写一段项手机发送短信的代码 谢谢！

我现在手机用数据线连接到电脑的串口上 我向手机发送命令为什么没有发应？ 小弟是菜鸟
MSComm1.CommPort :=2;
MSComm1.InBufferCount :=0;
MSComm1.PortOpen :=True;
SendData :='AT+CMGF=0'+chr(13);
MSComm1.Output :=SendData;
SendData :='AT+CMGS="'+'0891683108501705F011000B91683157801229F600000002C834'+'"'+ch(13);
MSComm1.Output :=SendData;