[winsock] WSAWaitForMultipleEvents всегда возвращает WSA_WAIT_TIMEOUT

[accipiter]

Проблема в том, что после подключения одного клиента друнгие клиенты не могут подключиться. Функция WSAWaitForMultipleEvents всегда возвращает WSA_WAIT_TIMEOUT, хотя второй клиент в это время пытается подключиться. Такое ощущение, событие FD_ACCEPT не происходит...

Инициализация и запуск потока обработки подключений

PHP код:

HANDLE hsock;
DWORD  dsock;
WSADATA wsaData;
WSAStartup(MAKEWORD(2,0),&wsaData);
sock = socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
unsigned long ulMode = 1;
ioctlsocket(sock,FIONBIO,(unsigned long *)&ulMode);
sockaddr_in addr;
addr.sin_family = AF_INET;
addr.sin_port = htons(StrToInt(ePort->Text));
bCreate->Enabled = false;
ePort->Enabled=false;
addr.sin_addr.s_addr=htonl(INADDR_ANY);
bind (sock,(SOCKADDR*)&addr,sizeof(addr));
listen(sock,5);
hsock = CreateThread(NULL, 0,(LPTHREAD_START_ROUTINE)ThListen,(void*)&sock, 0,(LPDWORD)&dsock); 


Сам поток

PHP код:

DWORD WINAPI ThListen(LPVOID s){
        WSAEVENT evAccept = WSACreateEvent();
        WSAEventSelect(sock,evAccept,FD_ACCEPT);
        int i=1;
        while(1){
                if(i<50){
                        switch (WSAWaitForMultipleEvents(1,&evAccept,false,1,false)){
                                case WSA_WAIT_TIMEOUT: break;
                                case WSA_WAIT_FAILED: Form1->Memo1->Lines->Add("WSA_WAIT_FAILED");
                                break;
                                default:
                                        Clients[i].sock = accept(sock,(sockaddr*)&(Clients[i].addr),(int*)sizeof(sockaddr_in));
                                        Clients[i].Thread = CreateThread(NULL, 0,
                                                                        (LPTHREAD_START_ROUTINE)ThClients,(void*)i,
                                                                         0,(LPDWORD)&(Clients[i].id));
                                        WSAResetEvent(evAccept);
                                        Form1->Memo1->Lines->Add("Client "+IntToStr(i));
                                        i++;
            }
                }
        }
}