TVarSin

type TVarSin = packed record

  case Integer of

    0: (

        AddressFamily: u_short;

      );

    1: (

        case sin_family: u_short of

          AF_INET: (

              sin_port: u_short;

              sin_addr: TInAddr;

              sin_zero: array [0..7] of Char;

            );

          AF_INET6: (

              sin6_port: u_short;

              sin6_flowinfo: u_long;

              sin6_addr: TInAddr6;

              sin6_scope_id: u_long;

            );

      );

end;