因为一个数据包可能产生若干个oncommn事件把Text1.Text = buf改成Text1.Text =Text.text & buf或者把buf定义成全局变量，并且在OnComm中将buf = ""删除
