Cannot change Visible и Access violation в одном флаконе

unit launchingcode;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IniFiles, Vcl.ComCtrls,
  Vcl.Imaging.pngimage, Vcl.ExtCtrls, Vcl.StdCtrls;
 
type
  TLogoForm = class(TForm)
    ProgressBar1: TProgressBar;
    MainTitleSettings: TImage;
    Greeter: TImage;
    StartChest: TImage;
    StartBackground: TImage;
    AprilCaption: TStaticText;
    AppVersion: TStaticText;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  LogoForm: TLogoForm;
  Ini:TIniFile;
  Version, LastVisitedAccount, AccountBlockyStats, AccountID, AccountPassword, ActivationKey, DefaultLanguage:string;
//ActivationKeyApproved:string;
  EntersFirstTime, AccountLoginActive, AccountIDexists, Activation:boolean;
  OnlineStatus, OfflineStatus, NotificationsAllowed:boolean;
 
implementation
 
uses setlanguage, activationcode, main;
 
{$R *.dfm}
 
procedure TLogoForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'settings.ini');
  Ini.WriteString('Version', 'BlockyStats', 'Alpha7');
  Ini.WriteBool('AppLogin', 'EntersFirstTime', EntersFirstTime);
  Ini.WriteBool('AppLogin', 'AccountLoginActive', AccountLoginActive);
  Ini.WriteString('AppLogin', 'LastVisitedAccount', LastVisitedAccount);
  Ini.WriteString('AppLogin', 'AccountBlockyStats', AccountBlockyStats);
  Ini.WriteBool('AppLogin', 'AccountIDexists', AccountIDexists);
  Ini.WriteString('AppLogin', 'AccountID', AccountID);
  Ini.WriteString('AppLogin', 'AccountPassword', AccountPassword);
  Ini.WriteBool('AppLogin', 'Activation', Activation);
  Ini.WriteString('AppLogin', 'ActivationKey', ActivationKey);
  Ini.WriteString('System', 'Language', DefaultLanguage);
  Ini.WriteBool('System', 'OnlineStatus', OnlineStatus);
  Ini.WriteBool('System', 'OfflineStatus', OfflineStatus);
 
  Ini.Free;
end;
 
procedure TLogoForm.FormShow(Sender: TObject);
begin
  //SetLanguageWindow.Show;
  //ActivationWindow.Show;
  //MainWindow.Show;
  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
  EntersFirstTime:=true;
  Activation:=false;
  AccountLoginActive:=true;
  AccountIDexists:=true;
 
  Ini.Free;
  if EntersFirstTime=true then begin
    SetLanguageWindow.Show;
  end
  else begin
    //if Account
    MainWindow.Show;
  end;
  Logoform.Hide;
end;
 
end.

procedure TLogoForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if EntersFirstTime=true then begin
    SetLanguageWindow.Show;
  end
  else begin
    MainWindow.Show;
  end;

procedure TLogoForm.FormCreate(Sender: TObject);
begin
  ShowMessage('LogoForm Create');
end;