Cortar lineas automaticamente en campos memo

[[Lepe]]

Empezado por NkStrs libreria de las NKLibs

// Devuelve un TString que contiene las líneas completas que resultan de
// partir la cadena s en líneas de como mucho nWide caracteres sin romper
// ninguna palabra.
function BreakMemo(const s: String; nWide: Integer; lJustify: Boolean): TStringList;

Facilmente se le puede añadir un crlf a cada linea no??

Saludos