Ich würde diesen Code übrigens nicht in die Klasse packen, denn damit hast du eine direkte Abhängigkeit auf deine Controlklasse -> nicht gut.
Warum nicht gut? Stell dir vor, du brauchst diese Klasse nur als Datenobjekt in einem Projekt, welches nichts mit Benutzeroberfläche zu tun hat. Dann wird trotzdem die
VCL gebraucht.