О чём не пишут в книгах по Delphi

 // зафиксировано подключение клиента, и функция accept не приведет

 // к блокированию нити.

 if FD_ISSET(MainSocket, SockSet) then

 begin

ClientSockAddrLen:= SizeOf(ClientSockAddr);

// Принимаем подключившегося клиента. Для общения с ним создается

 // новый сокет, дескриптор которого помещается в ClientSocket.

 ClientSocket:=

 accept(MainSocket, @ClientSockAddr, @ClientSockAddrLen);

 if ClientSocket = INVALID_SOCKET then raise

 ESocketException.Create(

'Ошибка при ожидании подключения клиента: ' + GetErrorString);

 // Создаем в динамической памяти новый экземпляр TConnection

 // и заполняем его данными, соответствующими подключившемуся клиенту

New(NewConnection);

NewConnection.ClientSocket:= ClientSocket;

 NewConnection.ClientAddr:=

 Format('%u.%u.%u.%u:%u',

 Ord(ClientSockAddr.sin_addr.S_un_b.s_bl),

Ord(ClientSockAddr.sin_addr.S_un_b.s_b2),

 Ord(ClientSockAddr.sin_addr.S_un_b.s_b3),

 Ord(ClientSockAddr.sin_addr.S_un_b.s_b4),

 ntohs(ClientSockAddr.sin_port));

NewConnection.Deleted:= False;

 // Добавляем соединение в список

 Connections.Add(NewConnection);

WriteLn(OemString('Зафиксировано подключение с адреса ' +

NewConnection.ClientAddr));

 end;

 // Теперь проверяем готовность всех сокетов подключившихся клиентов.

 // Так как множество SockSet не может содержать более чем FT_SETSIZE

 // элементов, а размер списка Connections мы нигде не ограничиваем,

 // приходится разбивать Connections на "куски" размером не более

 // FD_SETSIZE и обрабатывать этот список по частям.

 // Поэтому у нас появляется два цикла — внешний, который повторяется

 // столько раз, сколько у нас будет кусков, и внутренний, который

 // повторяется столько раз, сколько элементов в одном куске.

 for J:= 0 to Ceil(Connections.Count, FD_SETSIZE) — 1 do

 begin

FD_ZERO(SockSet);

for I:= FD_SETSIZE * J to Min(FD_SETSIZE * (J + 1) — 1, Connections.Count — 1) do

FD_SET(PConnection(Connections[I])^.ClientSocket, SockSet);

 if select(0, @SockSet, nil, nil, @Timeout) = SOCKET_ERROR then

 raise ESocketException.Create(

'Ошибка при проверке готовности сокетов: ' + GetErrorString);

 // Проверяем, какие сокеты функция select оставила в множестве,

 // и вызываем для них ProcessSocketMessage. В этом есть некоторый

 // риск, т. к. для того, чтобы select оставила сокет в множестве,

 // достаточно, чтобы он получил хотя бы один байт от клиента,

 // а не все сообщение. Поэтому может возникнуть такая ситуация,

 // когда сервер получил только часть сообщения, но уже пытается

 // прочитать сообщение целиком. Это приведет к блокированию нити,