Создать клиент-серверное приложение на основе TServerSocket и TClientSocket

Я создаю сервер на одном хосте. На другом запускаю клиент, который должен подлючиться к серверу в локальной сети, не зная ни имени хоста, ни ip-адреса. Клиентом я научился получать список всех локальных пользователей, но когда клиент начинает искать через цикл сервер, то после первой попытки начинают появляться ошибки 10049. Я подозреваю что команда ClientSocket1->Close(); работает не корректно. Подскажите как реализовать подключение КЛИЕНТА через цикл.