День добрый, Юнит Sockets.pas, Класс TBaseSocket, метод Select(). Реализация: [Code] try {$IFDEF MSWINDOWS} Result := ErrorCheck(WinSock.select([Big]FSocket + 1[/Big], ReadFdsptr, WriteFdsptr, ExceptFdsptr, Timeptr)) > 0; {$ENDIF} {$IFDEF LINUX} Result := ErrorCheck(Libc.select(FSocket + 1, ReadFdsptr, WriteFdsptr, ExceptFdsptr, Timeptr)) > 0; {$ENDIF} except Result := False; end; ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82945