Там таймаут у select очень маленький (100мкс).
Серега, Попробуй увеличить его. Найди в TCP.pas строку TimeOut := 100; и поставь, например 1000 или 10000 (максимум 65535, больше, если только поменять тип переменной TimeOut на dword). Затем посмотри загрузку проца.