diff --git a/sources/MVCFramework.Session.Database.pas b/sources/MVCFramework.Session.Database.pas
index 270f3d4f..f46c7d24 100644
--- a/sources/MVCFramework.Session.Database.pas
+++ b/sources/MVCFramework.Session.Database.pas
@@ -198,16 +198,9 @@ procedure TMVCWebSessionDatabaseFactory.TryDeleteSessionID(const ASessionID: Str
 end;
 
 function TMVCWebSessionDatabaseFactory.TryFindSessionID(const aSessionID: String): Boolean;
-var
-  lSess: TMVCSessionActiveRecord;
 begin
   inherited;
-  lSess := TMVCActiveRecord.SelectOneByRQL<TMVCSessionActiveRecord>(Format('eq(session_id, "%s")', [aSessionID]), False);
-  try
-    Result := Assigned(lSess);
-  finally
-    lSess.Free;
-  end;
+  Result := TMVCActiveRecord.Count<TMVCSessionActiveRecord>(Format('eq(session_id, "%s")', [aSessionID])) = 1;
 end;