Splitbutton mit Beschriftung aus Dropdown-Menü und Fallunterscheidung

[HintByError]

Hallo Delphi Praxis,

ich wollte nachfragen, wie man die Fallunterscheidung und die Anpassung der Beschriftung bei einem Splitbutton in Delphi implementiert. Eine Lösung habe ich, sie kommt mir etwas umständlich vor, weil sie nicht in das geradlinige Konzept der Delphi-Programmierung passt. Das Onclick-Ereignis der Menüpunkte überträgt dabei die Beschriftung auf den Splitbutton und der Fall wird in das Tag-Feld des Splittbuttons eingetragen. Details siehe beigefügten Quellcode in der Zip-Datei.