跪求就：MSComm组件 收短信的问题（最后50分相送）

Question

又能够MSComm收短信的问题忙了两天了还是没有进展 求大家就下 感激不尽 
代码如下 大家看看哪里不好 或者 有好的帮忙顶下 谢谢各位procedure TForm1.FormCreate(Sender: TObject);
begin
  Mscomm1.InBufferCount  :=0;  //  清空接收缓冲区
  Mscomm1.InputLen  :=0;  //  Input读取整个缓冲区内容
  Mscomm1.RThreshold  :=1;  //  每次接收到字符即产生OnComm事件
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  mscomm1.CommPort := 1;                    //指定端口 
  mscomm1.Settings := '9600,N,8,1';        //其它参数 
  mscomm1.InBufferSize := 1024;            //接收缓冲区
  //mscomm1.SThreshold := 0;                  //一次发送所有数据 0 2
  mscomm1.InBufferCount := 0;              //清空接收缓冲区
  Mscomm1.DTREnable :=true;  //  数据终端准备好 
  Mscomm1.RTSEnable :=true;  //  请求发送
  Mscomm1.PortOpen  :=true;  //  打开串口
  MSComm1.RThreshold :=1;
end;
procedure TForm1.MSComm1Comm(Sender: TObject);
var 
  recstr:Olevariant; 
begin 
  if Mscomm1.CommEvent=2  then 
  begin 
    recstr  :=  Mscomm1.Input  ; 
    Memo1.text  :=  Memo1.Text+recstr; 
  end;
end;
求各位大虾一定要救救小弟 

Answer 1

加个延时试试procedure TForm1.MSComm1Comm(Sender: TObject); 
var 
  recstr:Olevariant; 
begin 
  if Mscomm1.CommEvent=2  then 
  begin 
    sleep(300);      recstr  :=  Mscomm1.Input  ; 
    Memo1.text  :=  Memo1.Text+recstr; 
  end; 
end;