¿Cómo ajustar el tamaño del botón para que se ajuste al texto en Delphi FireMonkey?

Quiero que el tamaño del botón (ancho y alto) sea lo más pequeño posible, pero quiero que se ajuste al texto. ¿Algún ejemplo de código? Aplicación móvil Delphi XE4 FireMonkey.