Creating a TIniFile in a custom class fails for an unknown reason - delphi-11-alexandria

Question

I created a unit with my own class to manage my application settings. One of the members of the class is of type TIniFile which should be used to store the settings in the ini file.
In the constructor of the class, I call TIniFile.Create(SettingsFile) but it raises an exception (I tested it with try...except).
Why does TIniFile creation fail?
Here is my code:
unit SettingsUnit;
interface
{$M+}
uses
System.Classes, System.IniFiles, System.SysUtils;
type
TSettingsManager = class(TObject)
private
FSettingsFile: TIniFile;
FSettingsFileName: String;
FSize: Byte;
FBatteryTop: Integer;
FBatteryLeft: Integer;
FTransparentValue: Byte;
FMinBatteryPercent: Byte;
FShowPercentLabel: Boolean;
FShowPercentOnACPower: Boolean;
FStartWithWindows: Boolean;
public
constructor Create(const SettingsFile: String);
destructor Destroy; override;
procedure StartWithWindows(Value: Boolean);
procedure LoadSettings;
procedure RestoreDefaults;
procedure Apply;
published
property Size: Byte read FSize write FSize;
property BatteryTop: Integer read FBatteryTop write FBatteryTop;
property BatteryLeft: Integer read FBatteryLeft write FBatteryLeft;
property Transparent: Byte read FTransparentValue write FTransparentValue;
property MinBatteryPercent: Byte read FMinBatteryPercent write FMinBatteryPercent;
property ShowPercentLabel: Boolean read FShowPercentLabel write FShowPercentLabel;
property ShowPercentOnACPower: Boolean read FShowPercentOnACPower write FShowPercentOnACPower;
property StartingWithWindows: Boolean read FStartWithWindows;
end;
var
Settings: TSettingsManager;
implementation
uses
System.Win.Registry;
const
SettingsSection: String = 'BatteryFormSettings';
constructor TSettingsManager.Create(const SettingsFile: String);
begin
try
FSettingsFile := TIniFile.Create(SettingsFile);
except
RaiseLastOSError;
Exit;
end;
FSettingsFileName := SettingsFile;
LoadSettings;
inherited Create;
end;
procedure TSettingsManager.LoadSettings;
begin
with FSettingsFile do
begin
FSize := ReadInteger('BatteryFormSettings', 'FormSize', 1);
FBatteryTop := ReadInteger(SettingsSection, 'Top', 20);
FBatteryLeft := ReadInteger(SettingsSection, 'Left', 20);
FTransparentValue := ReadInteger(SettingsSection, 'TransparentValue', 255);
FMinBatteryPercent := ReadInteger(SettingsSection, 'MinBatteryPercent', 80);
FShowPercentLabel := ReadBool(SettingsSection, 'ShowPercentLabel', True);
FShowPercentOnACPower := ReadBool(SettingsSection, 'ShowPercentOnACPower', True);
FStartWithWindows := ReadBool(SettingsSection, 'StartWithWindows', False);
end;
end;
procedure TSettingsManager.Apply;
begin
with FSettingsFile do
begin
WriteInteger(SettingsSection, 'FormSize', FSize);
WriteInteger(SettingsSection, 'Top', FBatteryTop);
WriteInteger(SettingsSection, 'Left', FBatteryLeft);
WriteInteger(SettingsSection, 'TransparentValue', FTransparentValue);
WriteInteger(SettingsSection, 'MinBatteryPercent', FMinBatteryPercent);
WriteBool(SettingsSection, 'ShowPercentLabel', FShowPercentLabel);
WriteBool(SettingsSection, 'ShowPercentOnACPower', FShowPercentOnACPower);
end;
end;
procedure TSettingsManager.StartWithWindows(Value: Boolean);
const
KEY_SET_VALUE = $0002;
var
WinReg: TRegistry;
begin
try
WinReg := TRegistry.Create(KEY_SET_VALUE);
WinReg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
if Value then
begin
if not WinReg.KeyExists('BatteryScreen') then
WinReg.WriteString('BatteryScreen', ChangeFileExt(FSettingsFileName, '.exe'));
FStartWithWindows := True;
end
else
begin
if WinReg.KeyExists('BatteryScreen') then
WinReg.DeleteKey('BatteryScreen');
FStartWithWindows := False;
end;
finally
WinReg.CloseKey;
WinReg.Free;
end;
end;
procedure TSettingsManager.RestoreDefaults;
begin
Size := 1;
BatteryTop := 20;
BatteryLeft := 20;
Transparent := 255;
MinBatteryPercent := 80;
ShowPercentLabel := True;
ShowPercentOnACPower := True;
StartWithWindows(False);
end;
destructor TSettingsManager.Destroy;
begin
FSettingsFile.Free;
inherited Destroy;
end;
end.
And I call him in my form unit like this:
implementation
uses SettingsUnit;
...
procedure TMyForm.FormCreate(Sender: TObject);
begin
Settings.Create(ChangeFileExt(Application.ExeName, '.ini'));
...
end;