1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TMainForm.FormCreate(Sender: TObject);
var F : File;
begin
  try
   {$REGION 'Initialisierung'}
   if not FileExists(OptionsIni) then
   begin
    Assignfile(F, OptionsIni);
    Rewrite(F);
    CreateEmptyIniFile;
    FOptionInfo.Normalize; // FOPtioninfo mit den norm. Werten initailisieren
   end
   else
    ReadIni;
   NILFormVars;
   ResetLanguage;
   randomize;
   MenuWordWrap.Checked := Input.WordWrap;
   {$ENDREGION}
   //  combobox (OKCANCL2) füllen     8
   //  mit modalresult arbeiten (OKCANCL2)
   //  Max-Wert auslesen für spinedit    {$ENDREGION}
  except on E :Exception do
  begin
   raise E;
   HaltApp('Initialisierung fehlgeschlagen!', InitFailed);
  end;
  end;
end;                    

1:
2:
3:
4:
5:

try
..
except
..
end