THostEnt = packed record
  h_name: PChar;
  h_aliases: ^PChar;
  h_addrtype: Smallint;
  h_length: Smallint;
  case Byte of
    0: (h_address_list: ^PChar;);
    1: (h_addr: ^PChar;);
  end;