[Lucid]

Сам нашёл)))

Код:

implementation
uses Types;
...
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var s: string;
    x,y: integer;
begin
s := PageControl1.Pages[TabIndex].Caption;
with Control.Canvas do begin
    Brush.Color:=clred; //нужный цвет
    FillRect(Rect);
    Font.Color := clBlack;
    x := Types.CenterPoint(Rect).X - TextWidth(s)div 2;
    y := Types.CenterPoint(Rect).Y - TextHeight(s) div 2;
    TextOut(x,y,s);
  end;
end;

Admin: Пользуемся тегами для оформления кода, иначе последуют санкции!