Problem mit ConnectTimeout und Indy 10 und TIdTCPClient

[Alex_ITA01]

Hallo zusammen,
ich habe folgendes Problem.
Wenn mein TIdTCPClient den Server nicht findet, weil er einfach zur Zeit nicht verfügbar ist, dann sollte er doch nach 500ms aufhören zu suchen (ConnectTimeout).
Ich habe diesen Code im Create eines Threades aber egal was ich bei ConnectTimeout schreibe, er bleibt darin hängen und macht gar nichts mehr.
Wisst ihr woran das liegt bzw. wie ich ein ConnectTimeout noch setzen kann?

Delphi-Quellcode:

    TCPClient      := TIdTCPClient.Create(Nil);
    TCPClient.Host := '172.20.22.123';
    TCPClient.Port := 2000;
    TCPClient.ConnectTimeout := 500;
    TCPClient.Connect;

MFG Alex