Taddrinfo = packed record
  ai_flags: integer;
  ai_family: integer;
  ai_socktype: integer;
  ai_protocol: integer;
  ai_addrlen: cardinal;
  ai_canonname: pchar;
  ai_addr: psockaddr;
  ai_next: paddrinfo;
end;