>>Конструктор.. не проще, но прикольнее.
O_o

WsaStartup/WsaCleanUp не дергай каждый раз, в каждом потоке.
Startup перед запуском потока, CleanUp при завершении последнего потока.

Смотри конструкторы/деструкторы

http://www.rsdn.ru/forum/delphi/2927396.flat.aspx - рассматривается вопрос о том как определить работает поток или нет:?

P.S. я на канале, помогу если не занят буду

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...