TIdEthernetHdr = packed record
  ether_dhost: TIdEtherAddr;
  ether_shost: TIdEtherAddr;
  ether_type: word;
  end;