Класс исключения SIGSEGV в файле customform.inc на строке 2326

unit launchingcode;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, IniFiles;
 
type
 
  { TLogoform }
 
  TLogoform = class(TForm)
    LaunchingBevel: TBevel;
    LogotypeImage: TImage;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Logoform: TLogoform;
  Ini:TIniFile;
  Version, LastVisitedAccount, AccountBlockyStats, AccountID, AccountPassword, ActivationKey:string;
//ActivationKeyApproved:string;
  EntersFirstTime, AccountLoginActive, AccountIDexists, Activation:boolean;
  OnlineStatus, OfflineStatus, NotificationsAllowed:boolean;
 
implementation
uses main;
 
{$R *.lfm}
 
{ TLogoform }
 
procedure TLogoform.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'settings.ini');
    
  Ini.Free;
end;
 
procedure TLogoform.FormCreate(Sender: TObject);
begin
  Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'settings.ini');
  //iniciate loading files, check online-status, then connect/not connect to servers
  //set language, check activation status, enter accounts
 
  Ini.Free;
  MainWindow.Show;
  Logoform.Hide;
end;
 
end.

{------------------------------------------------------------------------------
  procedure TCustomForm.Show;
------------------------------------------------------------------------------}
procedure TCustomForm.Show;
begin
  if Application.Scaled and Scaled and (Monitor.PixelsPerInch<>PixelsPerInch) then //выделена эта строка
    AutoAdjustLayout(lapAutoAdjustForDPI, PixelsPerInch, Monitor.PixelsPerInch,
      Width, MulDiv(Width, Monitor.PixelsPerInch, PixelsPerInch));
 
  Visible := True;
  BringToFront;
end;