TIdIcmpHdr = packed record
  icmp_type: byte;
  icmp_code: byte;
  icmp_sum: word;
  icmp_hun: packed record case integer of 0: (echo: TIdIcmpEcho); 1: (gateway: TIdInAddr); 2: (frag: TIdIcmpFrag);;
  end;