Como ajustar o tamanho do botão para ajustar o texto no Delphi FireMonkey?

Eu quero que o tamanho do botão (largura e altura) seja o menor possível, mas eu quero que ele se encaixe no texto. Qualquer exemplo de código? Delphi XE4 FireMonkey Mobile Application.