Настройка размеров компонентов под размер текста

[mig-31]

Как правильно расчитать размер компонента, чтобы в нем поместился целый текст по ширине и высоте. Например для ListBox.
Через функции

Код: Выделить всё

Listbox.Canvas.TextWidth(TEXT);
Listbox.Canvas.TextHeight(TEXT);

и цикл можно получить max размеры текста, но при
Listbox.Width:= Max(Listbox.Canvas.TextWidth(TEXT));
Текст не помещается.

Очевидно, что надо учитывать и какие-то другие размеры, но какие?
Если да, зависит ли это от используемого Widgeta: WIn32, Qt, GTK2?

[Kemet]

наверное надо использовать
ClientHeight
ClientWidth