demo中netchat部分，为什么每次TCPClient断开之后，TCPserver的Accept事件才触发？(100分)

TcpClient1.RemoteHost := edtRemoteHost.Text;
TcpClient1.RemotePort := edtRemotePort.Text;
try
if TcpClient1.Connect then
for I := 0 to memSend.Lines.Count - 1 do
TcpClient1.Sendln(memSend.Lines);
finally
TcpClient1.Disconnect;//注释掉的话，TCPserverAccept将不会触发
end;

帮顶