bessere lösung für prozeduren

[TiGü]

0. "m" ist kein guter Name für einen Prozedur-/Funktionsparameter, bitte sprechende Bezeichner verwenden.

1. Nicht einfach Zahlen als Parameter für die case-Anweisung verwenden, sondern einen eigenen Aufzählungstyp verwenden.

2. Combobox2.clear kann vor dem case hingeschrieben werden, da es in allen Fällen vorkommt.

2.1. Ebenso combobox2.ItemIndex := 0, dann aber nach der case-Anweisung.

3. Strings als const oder resource strings am Anfang der Unit deklarieren. Lässt sich so auch besser kombinieren.

4. Combobox2.Items.Delimiter und Combobox2.Items.DelimitedText würde ich mir an deiner Stelle mal ganz genau anschauen.

5. Müssen Labels, die einen leeren String zugewiesen bekommen, wirklich visible sein?

5.1 Müssen unsichtbare Labels einen leeren String zugewiesen bekommen?

6. Das setzen der visible-Eigenschaft für die Labels 10 bis 13 kann vor der case-Anweisung geschehen oder in einer Subroutine gemacht werden.
Nur im letzten Fall kann man die dann explizit unsichtbar setzen (obwohl ohnehin leer).

Bei richtiger Umsetzung werden am Ende dann so rund nur drei bis fünf Anweisungen pro Fall übrigbleiben.