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