Wie passe ich die Größe der Schaltflächen an den Text in Delphi FireMonkey an?

Ich möchte, dass die Tastengröße (Breite und Höhe) so klein wie möglich ist, aber ich möchte, dass sie zum Text passt. Irgendein Codebeispiel? Delphi XE4 FireMonkey Mobile-Anwendung.