WrapText Function:

In the code segment that follows,  'PastImpact' is derived from TTable
(DBMemo - Component <Blob>), consisting of approximately 10 lines of
text.....
When calling this part of code to print, only one line is printed; can the
WrapText function be used to detect line length and force a line return....
??

function WrapText(const Line, BreakStr: string; nBreakChars: TSysCharSet;
MaxCol: Integer):string;

----------------------------- code segment ------------
Printer.BeginDoc;
.......
Printer.Canvas.Textout(NextCol1,LinesPrinted,
           DataModule1.Family.FieldByName('PastImpact').AsString);
                LinesPrinted := LinesPrinted + LineHeight;
........
Printer.EndDoc;
-------------------------------------------------------------
Any ideas,   Thanks...