TIdArpHdr = packed record
  arp_hrd: word;
  arp_pro: word;
  arp_hln: byte;
  arp_pln: byte;
  arp_op: word;
  arp_sha: TIdEtherAddr;
  arp_spa: TIdInAddr;
  arp_tha: TIdEtherAddr;
  arp_tpa: TIdInAddr;
  end;