🚀 go-pugleaf

Thanks to Gambit,
with this code I can bind a clientsocket to a specific port number:
With that said, use this code:

    #include <RtlConsts.hpp>

    void __fastcall TForm1::ClientSocket1Lookup(TObject *Sender,
TCustomWinSocket *Socket)
    {
        sockaddr_in Addr = {0};
        Addr.sin_family = PF_INET;
        Addr.sin_addr.s_addr = INADDR_ANY;
        Addr.sin_port = htons(3033);

        if( ::bind((SOCKET)Socket->SocketHandle, (sockaddr*)&Addr,
sizeof(Addr)) == SOCKET_ERROR )
        {
            int Err = WSAGetLastError();
            throw ESocketError(Rtlconsts_sWindowsSocketError,
ARRAYOFCONST((SysErrorMessage(Err), Err, 'bind')));
        }
    }

My problem is that I have an Array of TClientSocket, and when
the OnLookup event is triggered I have to check the Address and
the Port number of the current TClientSocket that is in this event to bind with an specific port.
But the RemoteAddress, LocalAddress, LocalPort, RemotePort are all nulls or cero.
What can I do?
Thanks in advance.