VaComm在Delphi XE中

Question

我想在我的Delphi程序中使用Comport，我使用como发送数据效果很好，但问题在于接收数据。当它接收数据时，系统应该调用程序VaComm1RxChar，但它没有。此过程永远不会运行。但即使我通过函数VaComm1.ReadBufUsed检查缓冲区中是否有一些字符，它返回一个值，因此必须有一些接收的数据。

感谢您的帮助。

这是我的代码，它只包含两个：

procedure TForm2.VaComm1RxChar(Sender: TObject; Count: Integer);
var text: string;
begin
   text:=Vacomm1.ReadText;
   Memo1.Lines.Add(text);
   ShowMessage('Some data received!');
end;

procedure TForm2.Button1Click(Sender: TObject);

begin

   Vacomm1.WriteText('Hello');
   Memo1.Lines.Add('Hello');
   sleep(200);
end;