为什么接收不到数据

我写的上位机程序，用串口助手可以接收到它发来的数据，问什么它接收不到串口助手发过来的数据，下面是它接收数据的代码，大家帮我看看，谢谢！  
   
  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;

继续阅读《为什么接收不到数据》的全文内容...