diff --git a/packages/fcl-web/src/base/iniwebsession.pp b/packages/fcl-web/src/base/iniwebsession.pp
index e61b551472..13de871e46 100644
--- a/packages/fcl-web/src/base/iniwebsession.pp
+++ b/packages/fcl-web/src/base/iniwebsession.pp
@@ -406,8 +406,6 @@ begin
   If (S='') then
     begin
     AddToSessionState(ssNew);
-    If Assigned(OnNewSession) then
-      OnNewSession(Self);
     GetSessionID;
     S:=IncludeTrailingPathDelimiter(SessionDir)+SF.SessionFilePrefix+SessionID;
 {$ifdef cgidebug}SendDebug('Expired or new session. Creating new Ini file : '+S);{$endif}
@@ -415,6 +413,8 @@ begin
     FIniFile.WriteDateTime(SSession,KeyStart,Now);
     FIniFile.WriteInteger(SSession,KeyTimeOut,Self.TimeOutMinutes);
     FSessionStarted:=True;
+    If Assigned(OnNewSession) then
+      OnNewSession(Self);
     end;
   FIniFile.WriteDateTime(SSession,KeyLast,Now);
   If not FCached then