socket连接问题，clientsocket连接很快,serversocket连接却很慢？(50分)

procedure TMain.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
listen.label1.Caption := '与监控端连接成功！可以开始试验';
listen.button1.Caption := '关闭';
Application.MessageBox('与监控端连接成功！ ', '信息', MB_OK + MB_ICONinformation);
socket.SendText(sendfile);
end;

procedure TMain.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Application.MessageBox('与监听端连接成功！ ', '信息', MB_OK + MB_ICONinformation);
end;

我clientsocket连接很快，马上就提示成功，但是serversocket连接提示就很慢，要过2，3
分钟才提示？为什么？我改成下面也 不行：（
procedure TMain.ServerSocket1Accept(Sender: TObject;
Socket: TCustomWinSocket);
begin
Application.MessageBox('与监控端连接成功!!!!!!!!!!!!!！ ', '信息', MB_OK + MB_ICONinformation);
end;

其实当ClientSocket报连接成功的时候，连接就建立了...

张兄，我也是这么认为，但是好象不是，因为我ServerSocket1ClientConnect时发送了
socket.SendText(sendfile);一串字符，ClientSocket报连接成功时并没收到这串字符

这是tcp的基本常识，第一次连接的套接字与第二次不一样，服务器接发用的是第二次连接的套接字

但是我如何让clientsocket和serversoceket同时提示连接成功呢？

多人接受答案了。