1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
    if (TabIndex=6) and (vf.Count > 0) then
      begin
           Control.Canvas.FillRect(Rect);
           Control.Canvas.Font.Style := [fsBold];
           Control.Canvas.Font.Color := clBlue;
      end
      else if (TabIndex=6) and (vf.Count = 0) then
      begin
          Control.Canvas.FillRect(Rect);
          Control.Canvas.Font.Style := [];
          Control.Canvas.Font.Color := clBlack;
      end;
   Control.Canvas.TextOut(rect.Left +4, rect.Top+4,TPageControl(Control).Pages[TabIndex].Caption);
end;