procedure TForm1.Button1Click(Sender: TObject);
var
Datos: string;
ini, fin: Integer;
begin
Datos:= RichEdit1.Text;
ini:= Pos('#Control1#',Datos) + Length('#Control1#') + 1;
fin:= Pos('#Control2#',Datos);
Delete(Datos, ini, fin-ini);
RichEdit1.Text:= Datos;
end;