FontDialog

[Luckie]

Kommt irgendwo im Quelltext noch ein:
settings := TIniFile.Create(...); Und warum global? So ist es besser:

Delphi-Quellcode:

var
  settings : TIniFile;
begin
  settings := TIniFile.Create(ChangeFileExt(ParamStr(0));
  try
    if FontDialog1.Execute then
    begin
      settings.WriteStrimng('font', 'font', FontDialog1.Font.Name);
    end;
  finally
    settings.Free;
  end;

Weil global hast du Probleme mit dem Ressourcen-Schutzblock. Desweiteren, weißt du nicht, ob das Objekt initialisiert ist und es ist nicht sehr ressourcen-freundlich.