Afbryde On Connect Indy

Jeg har en tråd hvor jeg connecter via en
IndySockec (TIdTCPClient;)

mit problem er hvis jeg forsøger at connecte til f.eks. et IP/nr der ikke eksistere, så hænger jeg lang tid i tråden  er det ikke muligt at afbryde
tråden midt under forløbet ?

procedure TLogOnController.execute;
var
  TmpStr : String;
  //i : Integer;
begin
  inherited;
  FOnConnectEvent(False);
  FOnStateEvent(1);
  FOnStatusEvent(\'Trying to connect: Ip \'+IPNo+\':\'+IntToStr(Port));
  FClientSocket.Host := IPNo;
  FClientSocket.Port := Port;
  try
    FClientSocket.Connect;  <----- HER VIL JEG GERNE AFBRYDE
    except
      FOnErrorEvent(\'Could not connect to IP: \'+IPNo+\':\'+IntToStr(Port));
      Exit;
  end;
  Sleep(WriteDelay);
  FClientSocket.Write(#27);
  FOnStateEvent(2);
  FOnStatusEvent(\'Handshaking....\');
  InStr :=  FClientSocket.ReadLn(\'> \', -2);
  FOnStateEvent(3);
  FOnStatusEvent(\'Connected to: Ip \'+IPNo+\':\'+IntToStr(Port));
  if FClientSocket.Connected then
    FOnConnectEvent(True)
  else
    FOnConnectEvent(False);
end;