procedure TForm1.FormCreate(Sender: TObject);
begin
  PageControl1.OwnerDraw := True;
  PageControl1.TabWidth := 20;
  PageControl1.TabHeight := 80;
  PageControl1.TabPosition := tpLeft;
end;

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer;
  const Rect: TRect; Active: Boolean);
begin
  Control.Canvas.Font.Assign(PageControl1.Font);
  if Active then
    Control.Canvas.TextOut(Rect.Left + 7, Rect.Top + 5,
      TPageControl(Control).Pages[TabIndex].Caption)
  else
    Control.Canvas.TextOut(Rect.Left + 7, Rect.Top + 2,
      TPageControl(Control).Pages[TabIndex].Caption);
end;