TAddressUnion

type TAddressUnion = record

public

  function GetAddr;

  function GetAddrSize;

  procedure GetAddrAndSize();

  case SocketType: TFPSocketType of

    stIPv4: (

        In4Addr: sockaddr_in;

      );

    stIPv6: (

        In6Addr: sockaddr_in6;

      );

    stUnixSocket: (

        UnixAddr: sockaddr_un;

      );

end;