TIPHeader = packed record
  iph_verlen: byte;
  iph_tos: byte;
  iph_length: word;
  iph_id: word;
  iph_offset: word;
  iph_ttl: byte;
  iph_protocol: byte;
  iph_xsum: word;
  iph_src: longword;
  iph_dest: longword;
end;

struct TIPHeader {
  byte iph_verlen;
  byte iph_tos;
  word iph_length;
  word iph_id;
  word iph_offset;
  byte iph_ttl;
  byte iph_protocol;
  word iph_xsum;
  longword iph_src;
  longword iph_dest;
};