Override accesmethods i TComponent??

Jeg har lavet min egen komponent-kontrol som nedarver fra TCustomControl. Den arver nogle (published) properties (eks. Width) fra TControl. Jeg kunne godt tænke mig at udføre noget kode når man eksempelvis ændre Width. Jeg kunne forestille mig at Width var deklareret sådan:

published
property Width:integer write SetWidth read FWidth;

jeg kunne godt tænke mig at override SetWidth til f.eks:

procedure TMinKontrol.SetWidth(w:integer);
begin
  inherited SetWidth(w);
  //gør noget
end;

men TControl.SetWidth er ikke virtual/dynamic så det kan man ikke. Alternativet er at override selve propetyen Width, men det er ikke ønskeligt da properties er statisk bundne det vil sige at

var
  k:TControl;
begin
  k := TMinKontrol.Create(self)
  k.Widt := 100;

stadig kalder den oprindelige SetWidth.

Er der nogen som kan hjælpe mig??