Hi,
dann mach es so:
Delphi-Quellcode:
...
protected
procedure Click; override; //ist als dynamic gekennzeichnet
...
procedure TMyComponent.Click;
begin
//Hier dein Code - vorher
inherited;
//Hier dein Code - nachher
end;
Mfg
FAlter
[edit]Genau diese Empfehlung gibt es in der
OH:
TControl.Click 
Überschreiben, wenn mehr gertan werden soll.[/edit]