如何用delphi实现modbus的crc校验？

function CRC(var Data: byte; Size: byte): Word; // 生成modbus CRC数据
var
CRC16Lo, CRC16Hi, CL, CH, UseHi, UseLo: Dword;
i, index: integer;
DataAdder: PByteArray;
begin
CRC16Lo := $FF; // CRC16Lo为CRC寄存器低8位
CRC16Hi := $FF; // CRC16Hi为CRC寄存器高8位
CL := $01;
CH := $A0; // A001 H 是CRC－16多项式代码
DataAdder := @Data;
for i := 0 to Size - 1 do
begin
CRC16Lo := CRC16Lo xor DataAdder^[i]; // 每一个数据与CRC寄存器异或
for index := 0 to 7 do
begin
UseHi := CRC16Hi;
UseLo := CRC16Lo;
CRC16Hi := CRC16Hi shr 1;
CRC16Lo := CRC16Lo shr 1; // 右移一位
if ((UseHi and $1) = $1) then // 如果高位字节最后一位是1的话
CRC16Lo := CRC16Lo or $80; // 低位字节右移后前面补1

if ((UseLo and $1) = $1) then // 如果LSB 为1，则与多项式进行异或
begin
CRC16Hi := CRC16Hi xor CH;
CRC16Lo := CRC16Lo xor CL;
end;
end;
end;

Result := (CRC16Hi shl 8) or CRC16Lo;
end;