Изменение стиля VCL во время выполнения приводит к утечке памяти

Question

После прочтения this question, я попытался позволить конечному пользователю изменить стиль моего приложения во время выполнения. Это привело к самого длинный список утечек памяти с контентом, как это:

A memory block has been leaked. The size is: 12 

This block was allocated by thread 0x130C, and the stack trace (return addresses) at 
the time was: 404B3E [frxDsgnIntf.pas][System][@GetMem$qqri][1993] 454B77 
[System.SysUtils][Sysutils.WideStrAlloc$qqrui] 454BB2 [System.SysUtils] 
Sysutils.StrNew$qqrpxb] 53046E [Vcl.Controls][Controls.TWinControl.DestroyWnd$qqrv] 
57E1C7 [Vcl.ComCtrls][Comctrls.TCustomTreeView.DestroyWnd$qqrv] A53DEE [JvComCtrls] 
TJvTreeView.DestroyWnd$qqrv] 530733 [Vcl.Controls] 
Controls.TWinControl.DestroyHandle$qqrv] 530703 [Vcl.Controls] 
Controls.TWinControl.DestroyHandle$qqrv] 530703 [Vcl.Controls] 
Controls.TWinControl.DestroyHandle$qqrv] 7552FEB6 [EnumThreadWindows] 530703 
[Vcl.Controls][Controls.TWinControl.DestroyHandle$qqrv] 

The block is currently used for an object of class: Unknown 

Почти все утечки в frxDsgnIntf.pas, для всех компонентов на форме, которая позволяет пользователю изменять стиль, за исключением и все точки к этой процедуре:

with TdlgSettings.Create(nil) do // leak here according to FastMM report 
    try 
    if ShowModal = mrOk then; 
    finally 
    Release; 
    end; 

кто-нибудь знает, если я делаю что-то неправильно или это поведение ожидается из TStyleManager при смене стилей? Вот код, который меняет стиль во время выполнения:

procedure TdlgSettings.cbThemeChange(Sender: TObject); 
begin 
    TStyleManager.TrySetStyle(cbTheme.Text); // cbTheme.Items lists all the themes which are included the application 
end; 

Answer 1

uses 
Vcl.Styles, Vcl.Themes, 
uFixMemOverflowVclStyle; 

LINK: http://www.delphi4arab.net/forum/showthread.php?t=9607