Uh! Díficil

Caro Amigo

É simples crie uma Procedure assim

procedure P_Components(l_form : TForm);
var rect : Trect
begin
for v_i := 0 to l_form.ComponentCount - 1 do
begin
if l_form.Components[v_i] is TPageControl then
begin
OnDrawTab(PageControl.name, 0, rect, true);
end;
end;
end;

caso necessite de maiores explicações mande um e-mail

Sem mais

Cabelo. 8)

infelizmente não deu certo...
O que é PageControl.name ?

E também outra coisa, eu gostaria que executase o evento com este código:
if active then
Control.Canvas.Brush.Color := $F0CAA6
else
Control.Canvas.Brush.Color := $a0cdA1;
with Control.Canvas do begin
FillRect(Rect);
TextOut(Rect.Left + Font.Size, Rect.Top + 2, (Control as TPageControl).Pages[TabIndex].Caption);
end;