[manuelgomez]

Hola aqui te pego un codigo de un moderador es muy bueno

procedure TForm1A1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
R: TRect;
Texto: String;
begin
if Active then
begin
Control.Canvas.Font.Color := clRed;
Control.Canvas.Font.Style := [fsBold];
end;
Texto := PageControl1.Pages[TabIndex].Caption;
R := Rect;
Control.Canvas.FillRect(R);
if not Active then
InflateRect(R, 0, -3);
DrawText(
Control.Canvas.Handle, PChar(Texto), -1, R,
DT_SINGLELINE or DT_CENTER or DT_VCENTER);
end;