p; session[i-1].Lookingup:=false; session[i-1].CSocket.active:=false; {停止查找} for j:=1 to serversocket1.Socket.ActiveConnections do if serversocket1.Socket.Connections[j-1].SocketHandle=session[i-1].SS_Handle then begin serversocket1.Socket.Connections[j-1].Close; {断开客户机} break; end; end; end; end; end.