procedure HandleEvent(var Event: TEvent); virtual;
Diese Methode behandelt zusätzlich das Kommando cmChooseFont, indem sie einen TFontDialog öffnet.