procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
//pinta a fonte
case TabIndex of
 0: Control.Canvas.Font.Color := clwhite;
 1: Control.Canvas.Font.Color := clyellow;
 2: Control.Canvas.Font.Color := claqua;
end;
// pinta a paleta / aba
case TabIndex of
 0: Control.Canvas.brush.Color := clgreen;
 1: Control.Canvas.brush.Color := clred;
 2: Control.Canvas.brush.Color := clblue;
end;
PageControl1.Canvas.Rectangle(Rect);
Control.Canvas.TextOut(Rect.left + 5, Rect.top + 3,
 PageControl1.Pages[tabindex].Caption);
// pinta a parte interna (tabsheet)
PageControl1.Pages[TabIndex].brush.Color := Control.Canvas.brush
 .Color;
PageControl1.Pages[TabIndex].Repaint;
end;