Ошибка при локализации проекта

[Oleg_SS]

Для локализации проекта использую стандартные средства delphi, а для переключения языка использую reinit.pas.
Все замечательно работает, пока не начал использовать ActionManadger.
При переключении языка возникает утечка памяти. Кто-нибудь сталкивался с подобным?

unit Unit1;

interface

uses reinit,
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
  Vcl.PlatformDefaultStyleActnCtrls, System.Actions, Vcl.ActnList, Vcl.ActnMan;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    ActionManager1: TActionManager;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

Const L: Array[0..1] of Integer = (LANG_RUSSIAN, LANG_ENGLISH);

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   if LoadNewResourceModule(L[ComboBox1.ItemIndex]) <> 0 then
      ReinitializeForms;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   // Проверка утечки памяти
   ReportMemoryLeaksOnShutdown := True;

end;

end

.

[Stilet]

А как выглядит ReinitializeForms?

[Oleg_SS]

Сообщение от Stilet

А как выглядит ReinitializeForms?

это не форма это процедура в reinit.pas Найдено на просторах инета.

[Аватар]

ReinitializeForms

В ней и смотри что не освобождается. Возможно есть процедура для освобождения. Если нет - сам сделай

[Oleg_SS]

Сообщение от Аватар

В ней и смотри что не освобождается. Возможно есть процедура для освобождения. Если нет - сам сделай

да все глаза уже просмотрел. Поэтому и пишу. Проблема возникает только если на форму кинуть ActionManager.

Вот весь проектTest.zip

[Stilet]

lstrcpy(P, LocaleName); // Копируем LocaleName в P

А где освобождение Р?
А вообще я бы на твоем месте либо профайлерами типа AQTime воспользовался, либо код начал заремливать и смотреть какие участки перестают утечку давать.

[Oleg_SS]

Сообщение от Stilet

А где освобождение Р?
А вообще я бы на твоем месте либо профайлерами типа AQTime воспользовался, либо код начал заремливать и смотреть какие участки перестают утечку давать.

функция LoadNewResourceModule не оставляет ни каких следов.
Все крутиться вокруг ReinitializeForms
Именно после ее вызова остается занятая память.