TIDTCPIPClient.Connect ohne exception abbrechen

[QuickAndDirty]

So baue ich moment eine TCP Verbindung auf .

Delphi-Quellcode:

procedure TConnectCLientThread.Execute;
begin
  var attempts := 0;
  While (Not Terminated) and (Not Client.Connected) and (Attempts < MAX_CONNECTIONATTEMPTS) do
  Begin
    try
      inc(attempts);
      Client.Connect;
    Except
      On E:Exception do
      Begin
        TThreadedLog.LogD('TConnectCLientThread Connection attempt  number '+attempts.ToString+' : ' + E.Message);
      End;
    end;
  End;
end;

Ich würde das Verbinden gerne abbrechen können, daher diese Konstruktion.

Es wäre mir lieber wenn ich irgendwie and ohne Exception den ConnectionTimeout mitbekäme oder wenn ich z.b. einen infinite ConnectionTimeout setzten könnte und irgendwie den Connectionversuch ohne Exception abbrechen könnte.

Seht ihr da eine Chance?