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;