Probleme mit CRC CCITT Prüfsumme

[Deep-Sea]

Noch mal als "einfach lesbare" Version (wobei CRC16_TABLE halt die bekannte Tabelle darstellt). So entspricht es meiner Meinung nach dem C-Code. Funktioniert aber trotzdem nicht, wenn man die Beispiele berechnet.

Delphi-Quellcode:

function GenerateCRC16(const AValue: AnsiString): Word;
var
  LChar: AnsiChar;
begin
  Result := High(Result);
  For LChar in AValue do
    Result := Ord(LChar) xor (Result shl 8) xor CRC16_TABLE[Result shr 8];
end;

Sicher, dass die Beispiele Strings darstellen?