icmphdr

type icmphdr = record

  _type: u_int8_t;

  code: u_int8_t;

  checksum: u_int16_t;

  un: record

    case LongInt of

      0: (

          echo: record

            id: u_int16_t;

            sequence: u_int16_t;

          end;

        );

      1: (

          gateway: u_int32_t;

        );

      2: (

          frag: record

            __unused: u_int16_t;

            mtu: u_int16_t;

          end;

        );

  end;

end;