//Пример кода : Иллюстрация простой версии 
var
  before, after : string;

begin
  // Установка длинной строки
  before := 'Это весьма длинная строка, длинной не менее 50 символов';

  // Её разбиение на множество строк, каждая длинной по 10 символов
  after := WrapText(before, 10);

  // Показ строк before и after
  ShowMessage(before);
  ShowMessage('');
  ShowMessage(after);
end;

//Пример кода : Перенос по словам специальным символом управления 
var
  before, after : string;

begin
  // Установка длинной строки
  before := 'Десять = 10. Одиннадцать = 11. Сто = 100.';

  // Её разбиение на множество строк, заканчивающиеся точкой
  after := WrapText(before, #13#10, ['.'], 1);

  // Показ строк before и after
  ShowMessage(before);
  ShowMessage('');
  ShowMessage(after);
end;