ions);
         session[j].Used:=true;                        {置为在用}
         session[j].CSocket:=TClientSocket.Create(nil);
         session[j].CSocket.OnConnect:=ClientSocket1Connect;
         session[j].CSocket.OnDisconnect:=ClientSocket1Disconnect;
         session[j].CSocket.OnError:=ClientSocket1Error;
         session[j].CSocket.OnRead:=ClientSocket1Read;
         session[j].CSocket.OnWrite:=ClientSocket1Write;
         session[j].Lookingup:=false;
      end;
   session[j].SS_Handle:=socket.socketHandle;    {保存句柄，实现绑定}
   session[j].Request:=false;                    {无请求}
   session[j].client_connected:=true;            {客户机已连接}
   session[j].remote_connected:=false;           {远程未连接}
   edit1.text:=inttostr(sessions);
end;

file://被代理端断开时…
procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
i,j,k: integer;
begin
   for i:=1 to sessions do
      if (session[i-1].SS_Handle=socket.SocketHandle) and session[i-1].Used then
         begin
            session[i-1].client_connected:=false;   {客户机未连接}
            if session[i-1].remote_connected then
               session[i-1].CSocket.active:=false   {假如远程尚连接，断开它}
            else
               session[i-1].Used:=false;           {假如两者都断开，则置释放资源标志}
            break;
         end;
   j:=sessions;
   k:=0;
   for i:=1 to j do                       &n