[Delphi] Podmiana obiektu w dziedziczonym komponencie

Witam,
Nie pisałem za dużo własnych komponentów, znam zasady dziedziczenia itd ale nigdzie nie znalazłem przykładu który rozwiązałby mój przypadek. Otóż. Stworzyłem sobie własny komponent TMyPagecontrol dziedziczący z TPageControl. Cos tam sobie w nim pozmieniałem i gra. PageControl posiada zakładki klasy TTabSheet. No i teraz jak przykładowo klasa tego obiektu wyglada tak:

type TTabSheet = class
protected
....
procedure PaintWindow(DC: HDC); virtual;
....
end;

Stworzyłem sobie obiekt TMyTabSheet dziedziczący z TTabSheet:

type TMyTabSheet = class(TTabSheet)
protected
....
procedure PaintWindow(DC: HDC); override;
....
end;

... przeładowując metode PaintWindow w której to robie jakies swoje zboczone rzeczy. Tylko mam teraz problem jak podmienić ten obiekt w TMyPageControl aby dla zakładek wywoływało TMyTabSheet.PaintWindow a nie TTabSheet.PaintWindow? Jak to zrobić korzystając z dobrodziejstw dziedziczenia nie przepisując połowy kodu TPageControl? Pewnie trzeba tu jakoś rzutowanie zastosować ale nic sensownego nie przychodzi mi do głowy
Pozdrawiam