1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  if Active then begin
    Control.Canvas.Font.Color:=clBlack;  // Farbe der Schrift
    Control.Canvas.TextRect(Rect,Rect.Left+4,Rect.Top+4,PageControl1.Pages[TabIndex].Caption);  // Zeichnen der Überschrift TabSheet
  end else begin
    Control.Canvas.Font.Color:=clBlack;  // Farbe der Schrift
    Control.Canvas.TextRect(Rect,Rect.Left+4,Rect.Top+4,PageControl1.Pages[TabIndex].Caption);  // Zeichnen der Überschrift TabSheet
  end;
end;