如何测试 SocketConnection是否连接成功(100分)

如果使用SocketConnection，请参考如下贴子。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1098419
但下的代码需要改一点儿
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
try
SocketConnection1.Connected := True;//因为ClientSocket使用了跟SocketConnection一样的地址和端口
//若它连接成功的话，对方肯定开了而且开了 Socket Server程序
except
这里主要捕获多层应用中的OLE一类的错误，跟网络无关
end;
end;

TO: szf
我也是用這個方法,可是當用戶多時(5個), 要等很久很久,

第6个以后的用户在哪一段代码那里等很久？

听课ing...

写一个单独的过程
proceduredo
Connect;
begin
try
SocketConnection1.Connected := True;
except
ShowMessage('Error');
end;
end;
在需要连接的时候单独调用此过程， 就可以捕捉到错误了。