Hvorfor virker det her ikke??

program Project1;

uses
  Forms, inifiles, SysUtils,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4};

{$R *.res}
function iniread(filename: string; Section: string; Name: string; defaultvalue: string):string;
var
  ini: Tinifile;
begin
  ini:=Tinifile.create(filename);
  result:=ini.readString(section,name,defaultvalue);
  ini.free;
end;
begin
  Application.Initialize;
  Application.Title := 'GameControle2';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.Run;
  If iniread(ExtractFilePath(ParamStr(0))+'gamecontrole2.ini','Generalt','SM','true')='true' then begin
  form1.visible := false;
end
else begin
  form1.visible := true;
end;
end.