Delphi CRC16校验运算函数,返回校验码根据实际需求替换位置