Unigui获取连接的客户端列表

var  I : Integer;  ASessionList: TList;  ASession : TUniGUISession;begin  memo1.Clear;  ASessionList:=UniServerModule.SessionManager.Sessions.SessionList.LockList;  try        for I := 0 to ASessionList.Count-1 do        begin        ASession := TUniGUISession(ASessionList[I]);        if not ASession.IsTerminated then          memo1.Lines.Add( ASession.UniApplication.RemoteAddress );        end;  finally        UniServerModule.SessionManager.Sessions.SessionList.UnlockList;  end;end;