Cortar lineas automaticamente en campos memo

[taita]

Hola a tod@s:
Tengo un pequeño problema que me han planteado.
Tengo un Tmemo en el que desde mi formulario puedo escribir tranquilamente y hacer que reconozca los ENTER que ingreso. El problema es que necesitamos que cuando escribamos algo en el Tmemo, (que tiene la propiedad wordwrap en True), éste detecte el final de cada línea y, automáticamente ingrese una bajada de línea y un retorno de carro.
El Tmemo además debe tener un tamaño que permita escribir unos 60 caracteres y, quizá lo más importante, en caso de tener que continuar con una palabra que queda entre dos líneas, debe conservarla intacta.
Resumiendo: Las líneas que se ingresan el el Tmemo no deben superar los 60 caracteres y debe automáticamente hacer que cada una de ellas termine en un CTR+LF.
Todo este lío es debido a que los datos se escriben en un archivo de texto que sale por un formulario con ese tipo de formato.

¿Alguna sugerencia?
Gracias a tod@s.

[[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

[taita]

Gracias Lepe.
Es justo lo que estaba buscando.
Gracias.