TMagicHeaderRecord = packed record
  Header: array[0..SD_MAGIC_LENGTH-1] of Byte;
  Size: Cardinal;
  Hash: Int64;
  HashUsed: Byte;
end;