* Fix bug #34216

git-svn-id: trunk@39706 -

packages/chm/src/chmreader.pas

@@ -416,6 +416,8 @@ procedure TChmReader.ReadCommonData;
        end;
      end;
      ReadWindows(FWindows);
+     fWindows.Free;
+     fStrings.Free;
    end;
    procedure ReadContextIds;
    var
@@ -441,6 +443,8 @@ procedure TChmReader.ReadCommonData;
        Str := '/'+ ReadString(fStrings, Offset, True);
        fContextList.AddContext(Value, Str);
      end;
+     fIVB.Free;
+     fStrings.Free;
    end;
 begin
    ReadFromSystem;