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.