Модуль: SysUtils

type TSysCharSet = set of Char;

Описание
Функция разбивает строку S на подстроки, вставляя в строку символы-разделители, указанные в параметре BreakStr.
Символы-разделители вставляются в позиции, следующие за символами указанными в наборе nBreakChars. Параметр MaxCol определяет максимальную длину полученных строк (на практике длина строк в некоторых случаях может превышать MaxCol). Функция не вставляет разделители в строкицитаты (строки заключенные в одиночные кавычки). В параметре BreakStr, могут указываться как любые допустимые одиночные символы (буквы, цифры, управляющие символы; например, #13), так и целые строки.

Пример
var
   S, R: string;
begin
   S:= '123456_123456_123456';
   R:= WrapText( S, #13#10, ['1', '4'], 4);
   MessageDlg( R, mtInformation, [mbOk], 0);
end;