TControlTrick = class(TControl) end;
oder
TControlTrick = class(TControl);
reicht, da du so bereits Zugriff auf Alles bekommst. (auch protected, da Deklaration in selber/aktueller
Unit)
Aber ist auch unötig, da man sich für Font auch einfach
irgendwas nehmen kann, wo es bereits Public gemacht wurde, wie z.B. TLabel oder TEdit, anstatt TControlTrick.