Versuchs mal hiermit
Delphi-Quellcode:
Client1.Open
Application.ProcessMessages; <<<<<<<<<<<<<<<<
if Client1.Socket.Connected then
...
Wenn das auch nicht klappt, dann mach doch den Open mal über einen Timer, und werte die OnConnect und OnError Ereignisse aus.
Hatte das vorhin mal in D6 ausprobiert.
Ich such nochmal.
PS: Das =True hinter Client1.Socket.Connected kannst du dir sparen, da Client1.Socket.Connected schon ein True oder False zurückliefert.