Ayuda con PageControl

[Badillo]

Saludos a todos

Tengo el siguiente problema con el control TPageControl:

Necesito que al modificarle los caption a los TTabSheet en ejecución se me ajuste el tamaño de la pestaña al tamaño del caption, tal y como lo hace desde la vista de diseño cuando la propiedad TabWidth = 0.

Es decir los Caption los tengo por defecto en la vista de diseño en inglés y cuando entro al formulario los pongo en español, por tanto casi siempre es mayor que el tamaño original.

Una solución que se me ocurrió fué recorrer los TTabSheet calcular el mayor tamaño del texto más valor de ajuste como margen y asignarle ese valor a la propiedad TabWidth = Valor, pero esto hace que sean grandes y me ocupen demasiado espacio.

Cualquier idea será con gusto bien recibida.

Muchas gracias de antemano.