function WrapText(const Line, BreakStr: string; BreakChars: TSysCharSet; MaxCol:  Integer): string;overload;
function WrapText(const Line: string;  MaxCol:  Integer = 45): string;overload;

Функция WrapText возвращает копию Line, разбитую на несколько строк шириной MaxCol столбцов. Каждая строка разбивается, когда ее длина доходит до MaxCol символов. Для разбиения строки после последовательности символов BreakChsrs в конец строки вставляется BreakStr. (В Delphi 5 как существующие переводы строк рассматриваются символы #13 и #10, независимо от BreakStr.)
Вторая форма WrapText использует [' ', ' -' , #9] (пробел, дефис, табуляция) в качестве BreakSet и #13#10 (возврат каретки, перевод строки) в качестве BreakStr.