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