From c4adeb8e109bb2f995610246b6bdb6cbf61519cd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9=20Mussche?= <andre.mussche@gmail.com>
Date: Fri, 17 Jan 2014 10:59:25 +0100
Subject: [PATCH] 100ms auto connect timeout

---
 IdHTTPWebsocketClient.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/IdHTTPWebsocketClient.pas b/IdHTTPWebsocketClient.pas
index ec94c68..d5b3b7e 100644
--- a/IdHTTPWebsocketClient.pas
+++ b/IdHTTPWebsocketClient.pas
@@ -325,6 +325,7 @@ begin
         if (IOHandler <> nil) then
           IOHandler.Clear;
 
+        Self.ConnectTimeout := 100;
         Self.Connect;
         TryUpgradeToWebsocket;
       except