Michaël Van Canneyt пре 3 година
родитељ
комит
11d2960db8
1 измењених фајлова са 1 додато и 0 уклоњено
  1. 1 0
      packages/fcl-web/src/base/httproute.pp

+ 1 - 0
packages/fcl-web/src/base/httproute.pp

@@ -522,6 +522,7 @@ destructor THTTPRouter.Destroy;
 begin
 begin
   FreeAndNil(FLock);
   FreeAndNil(FLock);
   FreeAndNil(FRoutes);
   FreeAndNil(FRoutes);
+  FreeAndNil(FIntercepts);
   inherited Destroy;
   inherited Destroy;
 end;
 end;