TIdTCPclient hängt sich auf

[CReber]

Ich verstehe nicht warum sich nach der 11-ten IP immer die Applikation hängen bleibt. Kann mir jemand helfen? Habe die Vermutung das der Port sich irgendwie nicht freigibt aber ich weiß nicht was ich da anders machen soll.

Delphi-Quellcode:

  for i := 0 to 255 do begin
    Client := TIdTCPClient.Create(nil);
    Client.Port := 2306;
    Client.Host := ar[i];
    try
      Client.Connect(500);
    except
      on e : Exception do begin
        Client.Disconnect;
        FreeAndNil(Client);
    end;
  end;