Ну например циклом...:
Код:
var
i: integer;
begin
if(pos('<2>', s)>0) then begin
for i:=pos('<2>', s) to length(s) do begin
if(s[i] <> '<3>') then
Delete(s, i, 1)
else Break;
end;
end;
Как то так...
ЗЫ тут есть ошибка, т.к. это всего лишь пример, и писал его я без делфи...
если не поймешь, то попроси, напишу рабочий код.
ЗЫЫ надо искать в тексте "<2>", и если оно найдено, то удалять то тех пор, пока не встретиться "<3>", если "<3>" встретилось, то выход из цикла (в моем случае - break)