Du kannst auch einfach SetBounds überschreiben. Das wird nämlich beim Setzen der Höhe usw. aufgerufen.
Delphi-Quellcode:
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
// Dummyzeile, da der Highlighter im Forum ne Macke hat^^
Dort kannst du den Wert verändern bevor du ihn an die geerbte Methode weitergibst.