1 files changed, 3 insertions, 4 deletions
diff --git a/packages/fcl-web/src/base/iniwebsession.pp b/packages/fcl-web/src/base/iniwebsession.pp
index ba3bc5b12e..8c614fbe2b 100644
--- a/packages/fcl-web/src/base/iniwebsession.pp
+++ b/packages/fcl-web/src/base/iniwebsession.pp
@@ -190,10 +190,11 @@ begin
       Repeat
         if (Info.Attr and faDirectory=0) then
           begin
-          Ini:=TMeminiFile.Create(SessionDir+Info.Name);
+          FN:=SessionDir+Info.Name;
+          Ini:=TMeminiFile.Create(FN);
           try
             If SessionExpired(Ini) then
-              DeleteSessionFile(SessionDir+Info.Name);
+              DeleteSessionFile(FN);
           finally
             Ini.Free;
           end;
@@ -278,8 +279,6 @@ end;
 procedure TIniWebSession.InitSession(ARequest: TRequest; OnNewSession,OnExpired: TNotifyEvent);
 
 Var
-  L,D   : TDateTime;
-  T   : Integer;
   S : String;
 
 begin