在进行文字自绘时，自动换行打印

DrawText( Canvas.Handle, PChar( s ), Length( s ), rect, DT_WORDBREAK );