WrapText Добавьте перенос строки в строку, чтобы имитировать перенос слов
Пример кода : Показ заголовка с символами подчеркивания внизу
var
text, line : string;
begin // Запись заголовка с '-' как символы подчеркивания
text := '1.An introduction to life as we know it';
line := StringOfChar('-', Length(text)); // Отображение нашего подчеркнутого заголовка
ShowMessage(text);
ShowMessage(line);
end;
1.An introduction to life as we know it
---------------------------------------