TIdIpHdr = packed record
  ip_verlen: byte;
  ip_tos: byte;
  ip_len: word;
  ip_id: word;
  ip_off: word;
  ip_ttl: byte;
  ip_p: byte;
  ip_sum: word;
  ip_src: TIdInAddr;
  ip_dst: TIdInAddr;
  ip_options: longword;
  end;