为什么无法触发SPCOMM中的RECEVIEDATA事件

Question

代码如下:
procedure TFcomm.btn1Click(Sender: TObject);
var
  str: string;
begin  Sleep(100);
  str := 'abc';
  if comm1.writecommdata(pchar(str), length(str)) then
    ShowMessage('发送')
  else
    ShowMessage('失败');  Sleep(100);
  if Comm1.SendDataEmpty then
    ShowMessage('empty')
  else
    ShowMessage('noempty')end;
procedure TFcomm.CommReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);var  i: integer;  str: string;
begin
  Memo1.Lines.Add('receive');
  str := pchar(buffer);
  ShowMessage(str);
end;