TVarSin

type TVarSin = packed record

  case Integer of

    0: (

        AddressFamily: sa_family_t;

      );

    1: (

        case sin_family: sa_family_t of

          AF_INET: (

              sin_port: Word;

              sin_addr: TInAddr;

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

            );

          AF_INET6: (

              sin6_port: Word;

              sin6_flowinfo: LongWord;

              sin6_addr: TInAddr6;

              sin6_scope_id: LongWord;

            );

      );

end;