[NumLock]

ну это как бы пример был.
вот:

Код:

function CheckSocket(const ASocket: TSocket; usec: Integer): Boolean;
var
  FDSet: TFDSet;
  TimeVal: TTimeVal;
begin
  if ASocket<>INVALID_SOCKET then
  begin
    FD_ZERO(FDSet);
    FD_SET(ASocket, FDSet);
    TimeVal.tv_sec:=0;
    TimeVal.tv_usec:=usec;
    if select(0, @FDSet, nil, nil, @TimeVal)<>SOCKET_ERROR then Result:=True
    else Result:=False;
  end else Result:=False;
end;

if CheckSocket(sockethandle, 10000микросек) then ...ok... else ...err...