timeout只有send/recv timeout设置:
  timeout := 1000; //1 second
  if not ClientSocket1.Active then Exit;
  //发送延迟时间
  winsock.setsockopt(ClientSocket1.Socket.SocketHandle, SOL_SOCKET, SO_SNDTIMEO,
    PChar(@timeout), SizeOf(timeout)); 
  
  //接收延迟时间
  winsock.setsockopt(ClientSocket1.Socket.SocketHandle, SOL_SOCKET, 
  SO_REVTIMED, PChar(@Timeout, SizeOf(timeout));
  //SO_REVTIMED这参数不知打错没,你看看help