Fórum Colocar cor no tabsheet de um page control #422616

Olá, vi em alguns post falando desse tópico como resolver a situação acima citada, mas eu tenho um problema, uso Delphi 7, utilizo os mesmo comando e configurações, e não consigo fazer a aplicação entrar no PageControl1DrawTab, coloquei um ponto de depuração e certifiquei que não entra, coloquei como OwnerDram := true e tal, habilitando logo nas propriedades, as descrições ficam invisiveis, não sei se é o correto, alguém saberia me dizer o que poderia ser?
Segue abaixo o teste realizado:
case TabIndex of
0: Control.Canvas.Font.Color := clGreen;
1: Control.Canvas.Font.Color := clRed;
2: Control.Canvas.Font.Color := clBlue;
end;
Control.Canvas.Font.Style := [fsBold];
Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption);
PageControl1.Pages[TabIndex].Font.Color := Control.Canvas.Font.Color;