Problem beim Beenden von Programm

[CalganX]

Hi,
wenn ich mein Programm beende kommt immer ein RunTime-Error... Die Close-Prozedur sieht so aus:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  MainIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'preferences.ini');
  MainIniFile.WriteString('main', 'highlighter', getHighlighter);
  MainIniFile.Free;
end;

Die Funktion getHighlighter sieht so aus:

Delphi-Quellcode:

function getHighlighter: String;
var
  Item: TMenuItem;
  P: TMenuItem;
  i: integer;
begin
  Item := Form1.N4;
  P := Item.Parent;
  if P = nil then Exit;
  for i := 0 to P.Count - 1 do
    if P.Items[i].Checked then begin
      Result := P.Items[i].Name;
      Exit;
    end;
end;

Was ist da los?

Chris