Form Automatsch öffnen, wenn ein User es möchte!

[m-werk]

Ich hab jetzt was anderes probiert:

Code:

procedure TKundendaten.save_inifile;
var
Ini : TIniFile;
begin
  Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'settings.ini'  );
  try
    Ini.WriteBool('Sektion1','check_box',ExtraForm.CheckBox1.Checked);
  finally
    Ini.Free;
  end;
end;

procedure TKundendaten.load_inifile;
var
Ini : TIniFile;
begin
  Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'settings.ini'  );
  try
    ExtraForm.CheckBox1.Checked:=ini.ReadBool('Sektion1','check_box', true)
  finally
    Ini.Free;
  end;
end;

und oben vor der implementation habe ich Ini:TIniFile herausgenommen.

Jetzt kommt zwar keine Fehlermeldung mehr aber die ExtraForm öffnet sich auch nicht!