[kukuruku310]

рисовать его ручками с отслеживанием событий щелчков мышом на CheckBox-ах и ведя учет их текщих состояний
например, рисование, может в самом простом виде выглядеть как

Код:

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  r: TRect;
begin
  inherited;
  r.Top := 1;
  r.Left := Rect.Left + 1;
  r.Bottom := 17;
  r.Right  := r.Left + 16;
  DrawFrameControl(PageControl1.Canvas.Handle, r, DFC_BUTTON, DFCS_BUTTONCHECK or DFCS_CHECKED or DFCS_FLAT);
  Inc(Rect, Left, 18);
  DrawText(PageControl1.Canvas.Handle, PChar(PageControl1.Pages[TabIndex].Caption), -1, Rect, DT_LEFT);
end;

в свойствах PageControl лучше поставить OwnerDraw