Die Lösung mt dem Tag finde ich nicht passend. Auch die Konstanten würde ich in eine separate
Unit auslagern. Eleganter wäre hier die Verwendung von Frames oder ein neues Control TLabelListBox. Der Aufwand wird sich jedoch nur lohnen, wenn dies sehr oft benötigt wird. Wie Uwe schon mitgeteilt hat, wird das GridPanel optimal sein. Während dein Weg unter 50 Zeilen kaum machbar ist, benötigt man mit dem GridPanel keine einzige Zeile.