Methoden einer Kompo überschreiben ohne eigene abzuleiten

[Delphi-Freak]

Hey genial. Bin grad durch rumtesten draufgekommen:

Delphi-Quellcode:

TButton2 = class(TButton);
TButton = class(TButton2)
published
   procedure alert;
end;

und schon ist TButton eine Methode hinzugefügt. Habe es ausgetestet mit einer Form, darauf im OI Designer einen TButton draufplatziert und dann bei on Click Button1.alert aufgerufen und es hat funktioniert
Zwar nicht sehr elegant und irgendwie etwas komisch, aber es funktioniert!!!

Edit: Einrückung augebessert
Edit2: OI ist etwas falsch