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

    Exit;

   end

   elsе

    // Как обычно, "ошибку" WSAEWOULDBLOCK просто игнорируем

    if WSAGetLastError <> WSAEWOULDBLOCK then

    begin

     AddMessageToLog('Ошибка при получении данных от клиента ', +

      Connection.ClientAddr + ': ' + GetErrorString);

     RemoveConnection;

     Exit;

    end;

   end

   else if Connection.Phase = tpSendString then

    // Если сервер находится на этапе отправки данных,

    // а событие FD_READ все же произошло, отмечаем это

    Connection.SendRead := True;

 end;

 FD_WRITE: begin

  if Connection.Phase = tpSendString then

  begin

   // При наступлении события FD_WRITE проверяем, находится ли

   // сервер на этапе отправки данных, и если да, отправляем их

   Res :=

    send(Connection.ClientSocket, Connection.Msg[Connection.Offset + 1],

    Connection.BytesLeft, 0);

   if Res > 0 then

   begin

    Inc(Connection.Offset, Res);

    Dec(Connection.BytesLeft, Res);

    // Если Connections. BytesLeft = 0, значит, строка отправлена

    // полностью.

    if Connection.BytesLeft = 0 then

    begin

     AddMessageToLog('Клиенту ' + Connection.ClientAddr +

      ' отправлена строка: ' + Connection.Msg);

     // Очищаем строку, просто чтобы сэкономить память

     Connection.Msg := '';

     // Следующий этап - снова получение длины строки от клиента

     Connection.Phase := tpReceiveLength;

     // Получено - 0 байт

     Connection.Offset := 0;

     // Осталось прочитать столько, сколько занимает целое число

     Connection.BytesLeft := SizeOf(Integer);

     // Если были промежуточные события FD_READ, вызываем их

     // снова искусственно

     it Connection.SendRead then

     begin

      PostMessage(Handle, WM_SOCKETMESSAGE, Msg.Socket, FD_READ);

      Connection.SendRead := False;

     end;

    end;

   end

   else if WSAGetLastError <> WSAEWOULDBLOCK then

   begin

    AddMessageToLog('Ошибка при отправке данных клиенту ' +

     Connection.ClientAddr + ': ' + GetErrorString);

    RemoveConnection;

    Exit;

   end;

  end;

 end;

 FD_CLOSE: begin

  // Клиент вызвал функцию shutdown. Закрываем соединение.

  AddMessageToLog('Клиент ' + Connection.ClientAddr +

   ' закрыл соединение');

  shutdown(Connection.ClientSocket, SD_BOTH);

  RemoveConnection;

 end

 else

 begin

  AddMessageToLog('Неверное событие при обмене с клиентом ' +

   Connection.ClientAddr);

  RemoveConnection;

 end;

 end;

end;