[js roman1]

Код:

procedure test;
Var
  Str, st, MyStr: String;
  i,j: Integer;

begin
 while (Pos(artist, dintext)<>0) Do
 begin
  ar:=''; tit:=''; dr:='';
  i:=Pos(artist, dintext);
  j:=i+length(artist);
  Repeat
   ar:=ar+dintext[j];
   inc(j);
  until ((dintext[j]='"'));
  Delete(dintext, i, j-i);
  i:=Pos(title, dintext);
  j:=i+length(title);
  Repeat
   tit:=tit+dintext[j];
   inc(j);
  until (dintext[j]='"');
  Delete(dintext, i, j-i);
  i:=Pos(dur, dintext);
  j:=i+length(dur);
  Repeat
   dr:=dr+dintext[j];
   inc(j);
  until (dintext[j]=',');
  Delete(dintext, i, j-i);
  Form1.ListBox1.Items.Add(ar+'-'+tit+','+dr);
  {Form1.ListBox1.Items.Add('Track:'+ar);
  Form1.ListBox1.Items.Add('Title:'+tit);
  Form1.ListBox1.Items.Add('Duration:'+dr);  }
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 dintext:= Memo1.Text;
 artist:='"artist":"';
 title:='"title":"';
 dur:='"duration":';
 test;
end;