type_1_message_header = packed record
  protocol: array [1..8] of Char;
  _type: Byte;
  pad: packed Array[1..3] of byte;
  flags: Word;
  pad2: packed Array[1..2] of Byte;
  dom_len1: Word;
  dom_len2: Word;
  dom_off: LongWord;
  host_len1: Word;
  host_len2: Word;
  host_off: LongWord;
end;