Автоматическое изменение размера кнопки Delphi

Я хочу динамически изменить заголовок на TButton. Проблема в том, что TButtonне изменяет свой размер, если заголовок слишком длинный и не помещается на кнопке; поэтому текст выходит за края кнопки.

Как я могу изменить размер кнопки, чтобы она соответствовала подписи?

Некоторые идеи:

• Используйте другой компонент кнопки, который может изменять свой размер. Есть ли один?
• Подкласс TButtonи установите AutoSize=True(не пробовал, не знаю, сработает ли).
• Рассчитать размер подписи в пикселях и вручную изменять ширину каждый раз, когда я меняю подпись.