unit ECO_crc;

interface

  function __crc32(value: byte; crc: longint) : longint;
  function __crc16(value: byte; crc: word)    :    word;

usage by ultihouse; init:

var
  crc16,
  crc32  : longint;

begin
  crc16 := $0000;
  crc32 := $ffffffff;
  crc16 := __crc16(xxxx, crc16);
  crc32 := __crc32(xxxx, crc32);
end;