Jak obliczyć CRC16 ciągu znaków STRING

Witam chcę obliczyć crc16 ciągu znaków typu string

np:

function Crc16 (Dane : String): Longint;

function CRCArray16(text: String):Word;
var
  crc : LongInt;
  i,j : Integer;
begin
  crc := $FFFF;
  for i := 1 to Length(text) do begin
    crc := Ord(text[i]) xor crc;
    for j := 1 to 8 do begin
      if (CRC and 1) = 1
        then CRC := (CRC shr 1) xor $A001
        else CRC := CRC shr 1;
    end;
  end;
  Result := crc;
end;

lub
Jak wyliczać sumę kontrolną CRC-16