TIdDnsHdr = packed record
  dns_id: word;
  dns_flags: word;
  dns_num_q: word;
  dns_num_answ_rr: word;
  dns_num_auth_rr: word;
  dns_num_addi_rr: word;
  end;