TTreeNode leak when VCL styles are active - Page 2 - VCL - Delphi-PRAXiS [en]

https://en.delphipraxis.net/topic/4520-ttreenode-leak-when-vcl-styles-are-active/
https://en.delphipraxis.net/topic/4520-ttreenode-leak-when-vcl-styles-are-active/?page=2

https://github.com/EtheaDev/SVGIconImageList/tree/master/Demo


   spdbtn_ShowMyFrameOnPanel2: TSpeedButton;
    pnlFormMainClientArea: TPanel;
    ComboBox1: TComboBox;
    procedure spdbtn_ShowMyFrameOnPanel2Click(Sender: TObject);
 myFrameWithTreeViews: TfrmeFrameWithTreeViews = nil;
  ComboBox1.Items.AddStrings(TStyleManager.StyleNames);
  ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(TStyleManager.ActiveStyle.Name);
  TfrmeFrameWithTreeViews = class(TFrame)
    Splitter1: TSplitter;
    tvOnPanelLeft: TTreeView;
    pnlToPageControl: TPanel;
    Splitter2: TSplitter;
    pnlWithPageControlInto: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    tvOnTabSheet1: TTreeView;
    TabSheet2: TTabSheet;
    pnlWithMemoInto: TPanel;
    Memo1: TMemo;
    pnlToTreeViewOnLeftOnFrame: TPanel;
    Panel1: TPanel;
    spdbtnAddNewItemsOnLeft: TSpeedButton;
    Panel2: TPanel;
    spdbtnAddNewItemsOnRight: TSpeedButton;
    pgctrlOnFrame: TPageControl;
    TabSheet3: TTabSheet;
    tvOnpgctrlOnFrameOnTabSheet3: TTreeView;
    SpeedButton1: TSpeedButton;