串口的ComPort1RxChar 事件触发问题

在用DELPHI编制串口通讯程序时遇到一个问题，发送正常，接收后不能用文本框显示，程序如下
 设置中断可以看到接收数据是正确的，但是文本框内不显示接收内容，是何原因？
procedure (Sender: TObject; Count: Integer);
 var
 str:string;
begin
   comport1.Readstr(str,count);
   edit4.Text:=edit4.Text + str;
end;