Checkbox-wert aus INI lesen und form schliessen geht nicht

[tomsel]

Ich würde das Problem in etwa so lösen:

Delphi-Quellcode:

program intro2; 

uses 
  Forms, 
  main in 'main.pas' {frmMain}, 
  frmIntro in 'frmIntro.pas' {frmMeldung}, 
  sysutils, 
  StdCtrls, 
  inifiles; 

{$R *.res} 
var ini: TiniFile; 
    form: TfrmMeldung;
begin 
  Application.Initialize; 
  Application.MainFormOnTaskbar := True; 
  try 
   ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'config.ini'); 
   if ini.readbool('Intro','State',false) then 
   begin 
     form := TfrmMeldung.Create(nil);
     if form.ShowModal = mrOK then // modalresult in FrmMeldung entsprechend setzen
     begin
       // ini schreiben
     end else
     begin
       Application.Terminate;
     end; 
     form.Free;
   end; 
  finally 
   ini.free 
  end; 

  if not Application.Terminated then 
    Application.CreateForm(TfrmMain, frmMain); 

  Application.Run; 
end.

Das halte ich für sauberer und übersichtlicher als das herumeiern mit FormCreate. Hat ja auch ein Wenig mit Trennung von Anwendung und Oberfläche zu tun.