[yarockiisergei]

Работает!!!
Ниже готовый вариант.

Код:

function  AddCRC16(usCRC:Word;data:AnsiString):Word;
var
usCRC2:  Word;
temp2:  Word;
temp:Byte;
i:Integer;
begin
 usCRC2 := usCRC;
 for i:=1 to (Length(data)) do
 begin
   temp  := usCRC2;
   temp2 := (usCRC2 shr 8);
   usCRC2 := (temp2 xor g_ausCRC16SR_Table[temp xor ord(data[i])]);
 end;
   AddCRC16 :=  usCRC2;
end;