Удаление текста между символами / Delphi/ RAD XE3+

[kladsss]

Ребята подскажите как решить такую задачу. Уже три дня ломаю голову и результата ноль.

Задача: Удалить текст между данными символами включая - сами символы

Текст до обработки:

TEST "111111> TEST1 TEST "111111> TEST1 TEST "111111> TEST1
TEST """111111> TEST1 TEST """111111> TEST1 TEST """111111> TEST1
TEST """222222>> TEST2 TEST """222222>> TEST2 TEST """222222>> TEST2
TEST """333>>> TEST3 TEST """333>>> TEST3 TEST """333>>> TEST3
TEST "444444>>> TEST4 TEST "444444>>> TEST4 TEST "444444>>> TEST4 TEST "444444>>> TEST4
TEST ""5555>>> TEST5 TEST ""5555>>> TEST5

Результат, после обработки должен быть вот в таком виде:

TEST TEST1 TEST TEST1 TEST TEST1
TEST TEST1 TEST TEST1 TEST TEST1
TEST TEST2 TEST TEST2 TEST TEST2
TEST TEST3 TEST TEST3 TEST TEST3
TEST TEST4 TEST TEST4 TEST TEST4 TEST TEST4
TEST TEST5 TEST TEST5

П/C: Обработка из файла и сохранение в файл.

Я не совсем деревянный и по отдельности то знаю как сделать.
К примеру делал вот так (Работает, но постоянно нужно подстраивать количество символов в k+3 и i+1):

var
s,res: String;
i,k: Integer;
 
begin
s:=Memo1.Lines.text;
 i:=pos('"""',s);
 while i<>0 do begin
  k:=pos('>>',s);
  res:=copy(s,i+1,k-i);
  delete(s,i,k+3-i);
  i:=pos('"""',s);
delete(s,pos('"""',s),pos('>>',s)+3-pos('"""',s));
 end;
 Memo1.Lines.text:=s;
end;

Может у кого есть опыт по решению такой задачи. Заранее благодарен за помощь.

[Serge_Bliznykov]

если не заморачиваться сильно с быстродействием, то можно так:

implementation

uses StrUtils;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var s : string;
  p1, p2 : integer;
begin
  s := Memo1.Lines.Text;
  p1 := Pos('"', s);
  while p1>0 do begin
    p2 := PosEx('>', s, p1);
    if p2<1 then Break;
    while (p2<Length(s)) and (s[p2+1]='>') do Inc(p2);
    Delete(s, p1, p2+2-p1);
    p1 := Pos('"', s);
  end;
  Memo1.Lines.Text := s
end;

[kladsss]

Сообщение от Serge_Bliznykov

если не заморачиваться сильно с быстродействием, то можно так:

Serge_Bliznykov, Огромнейшее, ЧЕЛОВЕЧЕСКОЕ спасибо. Хотя скорость и средняя но это не беда. Главное что работает, вот это самое главное. Выручили меня... Респект!