bład w kodzie

Mam quiz i przy przy kliknięciu na odpowiedz pjawia mi się:
Access violation at address 0040453C in module ?test.exe?. Read of address 00000000

A gdy uruchamiam program z delphi dodatkowo pokazuje się:
Project test.exe raised exeception class EAccessViolation with message ?Access violation at adress 0040453C in module ?test.exe? .Read of address 000000?. Process stopped. Use Step or Run to continue.

Czepia się 2 lini:

ini:=tinifile.Create(extractfilepath(application.exename)+uzytkownikstring);

i

procedure TglownaForm.Koniec;
begin

  if pyt=liczbapytan then
    begin
  ShowMessage('Test zakończony!');
  odpowiedzbtn.enabled:=false;
  // inne buttony i edity


  Memo1.Lines.add('=======');
  // i inne labele

  Timer1.Enabled:=false;
  StatystykaTestu;
  OgolnaPoprawnoscTestu;
  end
  else
  begin
  Losuj;
  end;
end;

Tu jest kod całego programu:
http://www.megaupload.com/de/?d=A6IMD1VO
Dopiero go pisze, wiec nic nie jest jeszcze na swoim miejscu.
Co z tym zrobić?? Jak przerobić program.

Bo w procedurze

procedure Tglownaform.testylistboxClick(Sender: TObject);
begin

powinno być

procedure Tglownaform.testylistboxClick(Sender: TObject);
var
INI : TINIFile
begin

A poza tym to zrób porządek w kodzie bo jest na razie jeden wielki bajzel