如何设置TPageControl每个Tab的宽度？

Delphi的TPageControl的TabWidth属性设成0，那么每个Tab的宽度是和Caption的长度对应的，如果设成一个固定的值，那么所有的Tab的宽度又都完全一样了。那如何能自由的控制每个Tab的宽度呢？或者解决如下问题：
我现在当一个TabSheet激活时，Tab上的字体就变成黑体了(通过设定OnDrawTab实现)，但是黑体字体要宽一些，这样在原来的Tab宽度基础上显示就不够长了，很难看。应该怎么解决？