TclientSocket怎么判断!!!!!!!!!!!!!!!!急 ( 积分: 100 )

条件:1.客户端组件TclientSocket
2.服务器端组件TServerSocket
都采用非阻塞工作方式
要求:
客户端在不知道服务器端有没有开启的情况下连接服务器端(地址是知道的)
如果连接不上服务端则客户端报错(连接不上服务器端);
如果连接上以后再客户端开如愿验证用户名各密码;

我的思路是
在Login窗体里的BtnOK的单击事件中写
ClientSocket.open;
///这里,如果正常则验证
可是还没有判断开始验证了
这里怎么解决,让他判断完服务器以后再验证

代码:
procedure TFrmLogin.btnOKClick(Sender: TObject);
begin
inherited;
isConnect := False;

if edtUserCode.Text = '' then
begin
ShowMessage('工号不能为空');
Exit;
end;


with frmMain.csktClient do
begin
Address := SServerIP;
Open;
end;
/////这里,如果正常则验证
可是还没有判断开始验证了
这里怎么解决,让他判断完服务器以后再验证

end;