TIdUdpHdr = packed record
  udp_sport: word;
  udp_dport: word;
  udp_ulen: word;
  udp_sum: word;
  end;