там блокирующие сокеты? тогда надо вставлять строки типа Код (Text): invoke Sleep, 50 в код потока, отвечающего за работу с сокетом. Да и select вместо тупого блокирующего вызова не помешал бы