[Tech N9ne]

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

У вас четкие теги в ответе, можно парсингом их раскрыть, можно стандартными методами (json), если это не подходит, покажите пжлст, что приходит (без чистки) и что должно отобразиться (что оставить), мож обычным поиском в тексте можно обойтись

Это было что-то не так с парсингом...
После долгих мучений с гуглом, нашёл процедурку)

Код:

uses
  StrUtils;
 
//Поиск подстрок, расположенных между шаблонами aSub1 и aSub2.
//Найденные подстроки добавляются в список aSl.
procedure ParseStr(const aStr, aSub1, aSub2 : string; aSl : TStrings);
const
  SelfName = 'ParseStr()';
var
  L1, L2, P1, P2 : Integer;
begin
  if aSl = nil then
    raise Exception.Create(SelfName + '. ГЋГёГЁГЎГЄГ*! Ñïèñîê Г*ГҐ ñîçäГ*Г*.');
  L1 := Length(aSub1);
  L2 := Length(aSub2);
  P1 := 1;
  P2 := 0;
  repeat
    //Ищем первый тег, начиная с позиции P1.
    P1 := PosEx(aSub1, aStr, P1);
    //Если нашли первый тег.
    if P1 > 0 then begin
      //Справа от первого тега ищем второй тег.
      P2 := PosEx(aSub2, aStr, P1 + L1);
      //Если нашли второй тег.
      if P2 > 0 then begin
        //Подстроку, которая расположена между тегами, добавляем в aSl.
        aSl.Add( Copy(aStr, P1 + L1, P2 - P1 - L1) );
        //Начальную позицию поиска располагаем справа от второго тега.
        P1 := P2 + L2;
      end;
    end;
  //Если первый или второй тег оказался не найденным, то выходим из цикла.
  until (P1 = 0) or (P2 = 0);
end;
 
//Пример использования.
//В Memo1 - исходный текст, в Memo2 выводятся результаты поиска.
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.Clear;
  ParseStr(Memo1.Text, '<artist>', '</artist>', Memo2.Lines);
end;