Код:
tbHint:SetSize(tbHint:GetTextLength()*8, 20);
Ну дык ею и пользуюсь, хотя это маразм в некоторых случаях, чтобы определить длину фразы, приходится создавать локальный компонент, пихать туда строку и методом компонента получать длину запихнутой строки

.
А с лупой ещё одна есть заковыка, компонент используется Лотровский ТекстБокс, как выяснилось не все лотровские компоненты хорошо и с удовольствием меняют свои размеры

.