Delphi - с интерфейсом внутри интерфейса я получаю утечку памяти, но не знаю, почему

Моя цель - получить интерфейс настроек, в котором хранится информация о моих настройках приложения. Это может быть информация, которая актуальна только во время работы приложения, и информация, которая должна быть постоянной. Для этого я подумал, что было бы неплохо создать интерфейс приложения и интерфейс постоянных настроек внутри этого интерфейса настроек приложения, чтобы я мог переключаться между, скажем, Ini-файлом, БД, зашифрованным файлом, чем угодно.... потом. Код работает, я думаю. Но при закрытии FastMM оставляет меня с утечкой памяти в TiniFile, и я не знаю, почему. Вот блок интерфейса с классами.

unit UAPPSettings;

interface

uses
  IniFiles;

type
  IPersistentSettings = Interface
    ['{11542859-DEA3-4DBB-9A88-2068E407552C}']
    function ReadString(Section, Name, Default: String): string;
    procedure WriteString(Section, Name, Default: String);
    function ReadPassword: string;
    procedure WritePassword(Password: String);
  end;

type
  IAppSettings = Interface
    ['{559B8219-7D81-44CA-87A0-6D261B4A87E7}']
    function GetPersistentSettings: IPersistentSettings;
    property PersistentSettings: IPersistentSettings read GetPersistentSettings;
  End;

type
  TAppSettings = class(TInterfacedObject, IAppSettings)
  strict private
    FPersistentSettings: IPersistentSettings;
    function GetPersistentSettings: IPersistentSettings;
    procedure SetPersistentSettings(const Value: IPersistentSettings);
    property PersistentSettings: IPersistentSettings read GetPersistentSettings write SetPersistentSettings;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
  public
    constructor create(aPersistentSettings: IPersistentSettings);
  end;

type
  TIniSettings = class(TInterfacedObject, IPersistentSettings)
  strict private
    FIniFile: TIniFile;
    FfilePath: String;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
    function ReadString(Section, Name, Default: String): string;
    procedure WriteString(Section, Name, Default: String);
    function ReadPassword: string;
    procedure WritePassword(Password: string);
  public
    constructor create(FilePath: String);

  end;

  var
  APPSettings: IAppSettings;

implementation

uses
  FMX.Types;



  { TIniSettings }

constructor TIniSettings.create(FilePath: String);
begin
  FfilePath := FilePath;
end;

function TIniSettings.ReadPassword: string;
begin
  Result := ReadString('App', 'Passwort', '');
end;

function TIniSettings.ReadString(Section, Name, Default: String): string;
begin
  If FIniFile.ValueExists(Section, Name) = false then
    WriteString(Section, Name, Default);
  Result := FIniFile.ReadString(Section, Name, Default);
end;

procedure TIniSettings.WritePassword(Password: string);
begin
  WriteString('App', 'Passwort', Password);
end;

procedure TIniSettings.WriteString(Section, Name, Default: String);
begin
  FIniFile.WriteString(Section, Name, Default);
end;

function TIniSettings._AddRef: Integer;
begin
  log.d('IniSettings _AddRef');
  FIniFile := TIniFile.create(FfilePath);
  Result := inherited _AddRef;
end;

function TIniSettings._Release: Integer;
begin
  log.d('IniSettings _Release');
  Result := inherited _Release;
  FIniFile.Free;
  FIniFile := nil;
end;

{ TAppSettings }

constructor TAppSettings.create(aPersistentSettings: IPersistentSettings);
begin
  FPersistentSettings := aPersistentSettings;
end;

function TAppSettings.GetPersistentSettings: IPersistentSettings;
begin
  Result := FPersistentSettings;
end;

procedure TAppSettings.SetPersistentSettings(const Value: IPersistentSettings);
begin
  FPersistentSettings := Value;
end;

function TAppSettings._AddRef: Integer;
begin
  log.d('AppSettings _AddRef');
  Result := inherited _AddRef;
end;

function TAppSettings._Release: Integer;
begin
  log.d('AppSettings _Release');
  Result := inherited _Release;
  FPersistentSettings := nil;
end;

end.

Вот как я создаю объект:

APPSettings := TAppSettings.create(TIniSettings.create(System.IOUtils.TPath.GetDocumentsPath + System.SysUtils.PathDelim + 'config.ini'));

Любые предложения по улучшению кодирования также очень ценятся