Code wird ausgeführt, obwohl das nicht sein sollte

[Die Muhkuh]

Hi,

das hier:

Delphi-Quellcode:

begin   
  Inc(MDICount);
  Caption := 'Unbenanntes Dokument ' + IntToStr(MDICount);

  FModified := false;

  if Optionen.Editor = etRichText then
  begin
    pcPages.ActivePageIndex := 0;
    FEditor := etRichText;
    fmain.cbSchriften.Enabled := true;
  end
  else
  begin
    pcPages.ActivePageIndex := 1;
    FEditor := etCode;
    fmain.cbSchriften.Enabled := false;
  end;

  RichEdit.Font := Optionen.Font;
  fmain.cbSchriften.ItemIndex := fmain.cbSchriften.Items.IndexOf(Optionen.Font.Name);
end;