Проблемы с одним клиентом и множеством серверов

[Maxxon]

Здравствуйте!
Долго бьюсь над решением проблемы, но никак не удается довести до ума.

Немного сути:
Есть один клиент и пара десятков серверов. Соответственно, используются ClientSocket и ServerSocket. Клиент отсылает конкретному серверу сообщение, получает ответ и делает некие действия. В клиенте использован компонент TreeView для выбора нужного сервера, на событие OnClick повешена отправка базового сообщения, остальные сообщения отправляются путем выбора других элементов (низлежащие ноды, кнопки в другой панели и др.). При срабатывании OnClick в глобальную переменную server_name пишется выбранное значение.
Теперь задача:
Имея список этих серверов в массиве, отослать каждому из них сообщение, получить ответ, обработать сумму этих ответов и получить результат.

Задача вполне тривиальна, но я наткнулся на подводный камень и не могу с него слезть.
Когда я устанавливаю переменную server_name, сообщение отсылаю так:
ClientSocket1.Host:=selected_server ;
ClientSocket1.Port:=5555;
ClientSocket1.Active:=true;
ClientSocket1.Socket.SendText('my_t ext');
//(свойство Active по умолчанию в false)
Все работает, все замечательно. Но когда я делаю цикл:
for s:=0 to servers_index-1 do
begin
s_name:=servers_list[s];
ClientSocket1.Host:=s_name;
ClientSocket1.Port:=5555;
ClientSocket1.Active:=true;
ClientSocket1.Socket.SendText('my_t ext');

end;

я получаю ошибку типа "Невозможно сменить имя сервера пока сокет открыт". Ладно... Я закрываю сокет перед этим:

for s:=0 to servers_index-1 do
begin
s_name:=servers_list[s];
ClientSocket1.Active:=false;
ClientSocket1.Host:=s_name;
ClientSocket1.Port:=5555;
ClientSocket1.Active:=true;
ClientSocket1.Socket.SendText('my_t ext');

end;

и... вижу, что вместо сообщения my_text на сервер летит пустое сообщение.

Вот такой вот глюк...

Самое интересное: вместо этого цикла я написал обход верхних нод в TreeView, корректно получаю имя сервера, пытаюсь таким же способом отправить сообщение и... натыкаюсь опять на тот же камень.

Итог: в случае одиночной отправки сообщения одному серверу или последовательности сообщений одному серверу все работает корректно. При попытке рассылки одного сообщения, я получаю ... Короче, ничего не получаю.

Есть у кого-нибудь какие-нибудь идеи?

[Квэнди]

Да, есть, Indy с встроенным механизмом распределения потоков.

[Maxxon]

Не спорю. Но как можно решить это используя ClientSocket?
Честно говоря, слишком много придется переписывать.

[Квэнди]

Соответственно каким-то образом "ждать" пока сокет разблокируется.
Точно сейчас сказать не могу, но уверен что можно в MSDN найти проверку на занятость сокета

[Maxxon]

Хм... То есть причина в том, что соект не успевает открыться/закрыться? Я пробовал ставить Sleep(100) и даже проверку:
if (ClientSocket1.Active) then ClientSocket1.Active:=false;
Но Это также ни к чему не привело...

[Квэнди]

как я понимаю проблема собственно в блокирующих сокетах, т.е. пока один сокет не получит результат и не закончит свою работу, далее он ничего делать не может