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

  var
    crc32 : longint;
  begin
    crc32 := $ffffffff;
    crc32 := __crc32(xxxx, crc32);
  end;