K> SOCKET socket = WSASocket ( protocol, type, 0, NULL, 0, 0);

K> sockaddr_in address = {0};
K> address.sin_family = protocol;
K> address.sin_port = htons (port);
K> address.sin_addr.s_addr = INADDR_ANY;

K> OnSelect (socket, FD_ACCEPT | FD_CLOSE);
K> bind (socket, (sockaddr*) &address, sizeof (address));
K> listen (socket, 5);

Может я ошибаюсь, но в строчке "OnSelect (socket, FD_ACCEPT | FD_CLOSE);" ты явно указываеш флаги событий которые будут срабатывать. Попробуй поставить туда FD_READ и FD_CLOSE

P.S. Сам занимаюсь подобной проблемой. Очень понравился код — респект.