为什么接收不到数据

Question

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