type_1_message_header = packed record
  protocol: array [1..8] of Char;
  _type: LongWord;
  flags: LongWord;
  dom_len1: Word;
  dom_len2: Word;
  dom_off: LongWord;
  host_len1: Word;
  host_len2: Word;
  host_off: LongWord;
  end;