Al modificar MaxLength ajustar TEdit.Width

[elGuerrero]

Hice un componente TEditor derivado de TEdit y deseo añadirle la funcionalidad de que:

Si Autosize:=True y MaxLength<>0,
Entonces se modifique el valor de Width para que se ajuste al número de caracteres máximo.

Ese nuevo valor de Width debe tomar en cuenta el Font definido para el componente y el cambio debe ser visible en tiempo de diseño y en tiempo de ejecución.

Actualmente, en una child Form incluyo mi componente TEditor y modifico esas propiedades en tiempo de diseño y no se ajusta el Width.

Para calcular el ancho he visto algunos códigos por la red pero no he encontrado cómo atrapar/generar el evento que indique la modificación del valor de Autosize o de MaxLength para asignar el nuevo valor a Width.

Gracias por adelantado.