为什么接收不到数据

我写的上位机程序，用串口助手可以接收到它发来的数据，问什么它接收不到串口助手发过来的数据，下面是它接收数据的代码，大家帮我看看，谢谢！  
   
  procedure   TForm1.Button7Click(Sender:   TObject);  
   
  var  
  data:string;  
  BufferLength:word;  
  Buffer:Pointer;  
  begin                    
  SetLength(data,BufferLength);  
  move(Buffer^,pchar(data)^,Bufferlength);  
  Memo1.lines.Add(data);  
  Memo1.Invalidate;  
   
  end;

--------------------------
新闻：微软应用商店:程序仅限一人使用 可安装5次
网站导航: 博客园首页  新闻  .NET频道  社区  博问  闪存  找找看