加入變數
 public
       SessionTimeCount:Integer; //SessionTimeout 存活次數
    LastSessionCreateTime:TDateTime; //最後Session建立時間

procedure TUniServerModule.UniGUIServerModuleBeforeInit(Sender: 
TObject);
begin
  Self.SessionTimeout:=5*1000; //存活一次時間5秒
  Self.SessionTimeCount:=60;   //60次,總存活時間=5x60=300秒
   Self.LastSessionCreateTime:=now; //第一個Session建立時間
end;

[UniMainModule]
 屬性: TerminateOnBrowserClose 一定設為True;
 加入變數
 public
    SessionTimeCount: Integer; //Session存活次數,一次為一SessionTimeOut
    IsALive:Boolean;           //Session是否活著
    
 procedure TUniMainModule.UniGUIMainModuleBrowserClose(Sender: TObject);
begin
  Self.SessionTimeCount:=0; //Session展延次數取消,準備回收
end;

procedure TUniMainModule.UniGUIMainModuleCreate(Sender: TObject);
var dt:TDateTime; //Session建立時間
          DSec:integer; //Session與前一個Session建立的時間差
      begin
   dt:=Now;
DSec:=SecondsBetween(Dt , UniServerModule.LastSessionCreateTime);

//兩個Session建立間隔需大於2秒,以防止2秒內大量建Session
  if (DSec<=2) then UniSession.Terminate();

//記錄最後一個Session建立時間
   UniServerModule.LastSessionCreateTime:=Dt;

Self.SessionTimeCount:=UniServerModule.SessionTimeCount; //存活次數
        if UniServerModule.SessionManager.Sessions.SessionList.Count>500 then 
//最多500 Session建立
         begin
           //UniServerModule.MyLog.Add('Session數>500');
           UniSession.Terminate();
         end;
      end;

procedure TUniMainModule.UniGUIMainModuleHandleRequest(ASession:
 TObject;var Handled: Boolean);
 var  Session:TUniGUISession;
      begin
        Self.SessionTimeCount:=UniServerModule.SessionTimeCount; 
//Keyboard,mouse,or其他動作重設SessionTimeout次數
 end;

procedure TUniMainModule.UniGUIMainModuleSessionTimeout(ASession: 
TObject;  var ExtendTimeOut: Integer);
 var Session:TUniGUISession;
 begin
//Session:= TUniGUISession(ASession);
//Session已死,未曾執行UniLoginFormAfterShow或UniFormCreate事件
if not Self.IsALive then Self.SessionTimeCount:=0;

//存活次數大於0時就展延
    if (Self.SessionTimeCount>0) then 
         begin
           ExtendTimeOut:=UniServerModule.SessionTimeout
     end
    else
        UniSession.Terminate(); //立即回收Session

//展延次數減一次
    Self.SessionTimeCount:=Self.SessionTimeCount-1;
  end;

[LoginForm]
      若沒有LoginForm改為MainForm的AfterShow事件
 procedure TLoginForm.UniLoginFormAfterShow(Sender: TObject);
begin
       //在瀏覽器連續F5或重新整理5次,則產生5個Session,前4個Session是死
//的不會執行本事件
    TUniMainModule(UniSession.UniMainModule).IsALive:=True; 
  end;

[MainForm]
 顯示所有Session
 拖入三件控件,一個TuniListBox Name=LbSession,
      一個TuniButton  Name=UniButton3 Caption=Session List
      一個TuniButton  Name=UniButton2 Caption=Clear

procedure TMainForm.UniFormAfterShow(Sender: TObject);
 begin
        //在瀏覽器連續F5 5次,則產生5個Session,前4個Session是死的,不會執行
//本事件
   TUniMainModule(UniSession.UniMainModule).IsALive:=True;
 end;

procedure TMainForm.UniButton3Click(Sender: TObject);
 var UserList:TList; //登入Session List
     i:integer;
      Session:TUniGUISession;
      m:TUniMainModule;
      begin
        UserList:=UniServerModule.SessionManager.Sessions.SessionList;
   for i:=0 to UserList.Count-1 do
    begin
      Session:=TUniGUISession(Userlist[i]);
     m:=TUniMainModule(Session.UniMainModule);
        Self.LbSession.Items.Add(inttostr(i)+': '+
             Session.SessionId +' , '+
             inttostr(m.SessionTimeCount)+',Is Alive='+
GetEnumName( TypeInfo(Boolean) , Ord(m.IsALive))
             );
    end;
Self.LbSession.Items.Add('--------------------------------------');
 end;

procedure TMainForm.UniButton2Click(Sender: TObject);
      begin
        Self.LbSession.Clear;
 end;

[測試]
 開兩個瀏覽器
 瀏覽器1 監看Session
 瀏覽器2 登入後快速重整多次,以模擬大量產生Session