关于串口奇偶校验问题（急！）

我用的DELPHI 的COMPORT控件来开发的，有一串字符串我第一个字节要执行1校验，后面的所有字节要执行0校验，我的方法是把COMPORT的校验位改为1，发送第一个字节，然后COMPORT.Close再把COMPORT的校验位改为0,COMPORT.Open.发送后面的所有字节，但接收方收到的字节全部都是1校验。很奇怪。