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?

[[oscarac]]

puedes colocar algo de codigo?

[ZayDun]

Contenido de Richedit
#Control0#
(00000222201020...)
#Control1#
(95DVDS48654651651654B6584..)
#Control2#
(9951654B633..)

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
Datos:String;
begin
Datos:=Richedit1.Lines.Text;
//
If Pos ('Control1',Datos)>0 Then
Begin
Delete(Datos,Pos('Control1',Datos),Pos(')',Datos));
Memo1.Lines.Add(Datos);
End;

[[oscarac]]

y que resultado obtienes?

[ecfisa]

Hola ZayDun.

Contenido de Richedit
#Control0#
(00000222201020...)
#Control1#
(95DVDS48654651651654B6584..)
#Control2#
(9951654B633..)

¿ Que resultado esperas, es decir que querés que se borre del texto de arriba luego de la ejecución del código?

Un saludo.

[ZayDun]

el resultado que obtengo es que se queda a mitad de la cadena y lo que quiero es eliminar la cadena completa y que deje como resultado esto.


Contenido de Richedit

#Control0#
(00000222201020...)
#Control1#
()
#Control2#
(9951654B633..)

[[oscarac]]

la cadena completa empieza en
#control0# y termina en (9951654B633..) ?

grafica mejor como quieres que quede la linea

Ejemplo
[quote]
#control0#
#control1#
#control2#
/QUOTE]

o

(00000222201020...)
(95DVDS48654651651654B6584..)
(9951654B633..)