Как растягивать поле по содержимому в Delphi fmx?

[yooSee]

Привет Всем уважаемые! 

Пытаюсь сделать растягивание по содержимому компонента. Как это реализовано в мессенджерах типа WhatsApp если большой текст то растягивает (выделяется) по содержимому большое поле, если короткий то малое. 

  Text2.Text := Memo1.Lines.Strings[4];
  text2.Height := canvas.TextHeight(Text2.Text); //по высоте строки меняется т.к. там и есть одна строка в TText просто переносится WordWrap визуально.
  text2.Height:=canvas.TextWidth(text2.Text); //  - так чушь 

Как это вообще реализовано кто нибудь сталкивался?

[krapotkin]

если у TText просто задать Align=top и AutoSize, то и размер посчитается автоматически

а когда размер подсчитается, размер контейнера тоже можно подсчитать

а если контейнер - скроллбокс то вроде и не нужно...

[yooSee]

2 часа назад, krapotkin сказал:

если у TText просто задать Align=top и AutoSize, то и размер посчитается автоматически

а когда размер подсчитается, размер контейнера тоже можно подсчитать

а если контейнер - скроллбокс то вроде и не нужно...

спасибо!