SplitText

function SplitText(

  Text: string;

  MaxLen: Integer;

  Padding: Integer;

  PadFirstLine: Boolean = False;

  PaddingChar: char = ' ';

  ENDL: string = #13#10

):string;