[SLAKE]

Creo que esto te podría valer.

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
r : Trect;
begin
if tabindex = 1 then // el tab que quieras
begin
r := rect;
control.Canvas.Font.Style := [fsbold];
control.canvas.Font.Color := clblue;
control.canvas.DrawFocusRect(rect);
drawtext(control.Canvas.Handle,Pchar(TabSheet2.Caption),Length(Pchar(TabSheet2.Caption)),r,DT_LEFT)
end
else
begin
r := rect;
control.Canvas.Font.Style := [];
control.canvas.Font.Color := clblack;
control.canvas.DrawFocusRect(rect);
drawtext(control.Canvas.Handle,Pchar(TabSheet2.Caption),Length(Pchar(TabSheet2.Caption)),r,DT_LEFT)
end
end;



Salu2.