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;