sockaddr_gen = packed record
  case Integer of
    1: (Address: SOCKADDR;);
    2: (AddressIn: SOCKADDR_IN;);
    3: (AddressIn6: SOCKADDR_IN6_OLD;);
  end;