Problemas al eliminar cadena de Richedit

[ZayDun]

hola me estoy haciendo un gran lio con un Richedit, el richedit carga un documento que tiene como valor algo similar a esto:

DATOS A
[CONTENIDOA DATOS A]
DATOS B
[CONTENIDOB DATOS B]

el contenido de datos B es bastante amplio, por lo que tampoco pense que iba a ser ningun problema y aplique dicho codigo..

Código Delphi [-]
Delete(Datos,Pos('CONTENIDOB',Datos),Pos(']',Datos));

el problema es que el resultado que da viene a ser a algo asi.

DATOS A
[CONTENIDOA DATOS A]
DATOS B
[T
OS B]

me elimina solo parte del texto y da un salto de linea, pero si antes de ejecutar ese codigo elimino los saltos de linea me da el resultado que yo quiero pero un tanto desordenado al haber eliminado los saltos de linea.

DATOS A[CONTENIDOA DATOS A]DATOS B []


¿Alguna idea?