Расчет размера текста перед рисованием на холсте

Я использую Delphi 7. Я более чем знаком с использованием холста и рисования текста на холсте, а также с использованием TCanvas.TextHeight и т. Д. Проблема возникает, когда я хочу реализовать Перенос слова. Мне не только нужен лучший способ рисовать текст на холсте и автоматически переносить его в соответствии с заданным ограничением ширины, но мне также нужно знать, насколько высоко (или сколько строк) он будет после переноса. Мне нужно подготовить другое изображение, прежде чем я нарисую текст, изображение, которое должно быть достаточно большим, чтобы разместить обернутый текст. Это попытка воспроизвести то, как iPhone отображает SMS-сообщения, с воздушным шаром по обе стороны экрана в поле прокрутки переменной высоты (TScrollingWinControl - моя база).