From 034048e09da5ae287ef09e57250d2de22534de17 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 17 Dec 2020 15:18:02 +0000
Subject: [PATCH] * Patch from Andrey Sobol to fix memleak

git-svn-id: trunk@47799 -
---
 packages/chm/src/itsftransform.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/packages/chm/src/itsftransform.pas b/packages/chm/src/itsftransform.pas
index 69d1aaa894..98f7ece7c6 100644
--- a/packages/chm/src/itsftransform.pas
+++ b/packages/chm/src/itsftransform.pas
@@ -435,7 +435,15 @@ initialization
 
 finalization
   if Assigned(LocTransforms) then
+  begin
+    while LocTransforms.Count > 0 do
+    begin
+      if Assigned(PITSFTranformItem(LocTransforms.Items[0])^.Instance) then
+          (PITSFTranformItem(LocTransforms.Items[0])^.Instance).Free;
+      LocTransforms.Delete(0);
+    end;
     LocTransforms.Free;
+  end
 
 end.