function TMySocket.Ready: Boolean;
var FDReadSet: TFDSet; // структура - список сокетов
   TimeVal: TTimeVal; // время, сколько ждать
begin
if not fActive then begin Result:=False; Exit; end; // поле fActive имеет высший приоритет
TimeVal.tv_sec:=fTimeout div 1000;           // время в с
TimeVal.tv_usec:=(fTimeout mod 1000)*1000;   // время в мкс
FD_ZERO(FDReadSet);                          // обнуляем структуру
FD_SET(fSckt,FDReadSet);                     // заносим хэндл
select(0,@FDReadSet,nil,nil,@TimeVal);
Result:=FD_ISSET(fSckt,FDReadSet);
end;

if not sock.Ready then ...