[AmNeZiA]

Доброго времени суток.
Споткнулся об такую проблему, не могу сделать цикл в данном коде:

Код:

var I5,K:Integer; Strn:String;
begin
strn:=Memo1.text;
i5:=Pos('"title":"',Strn);
  Strn:=Copy (Strn,i5+Length('"title":"'),Length(Strn)-Length('"title":"'));
  i5:=Pos('","',Strn);
  if i5=0 then
   begin
    i5:=Length(Strn);
    K:=0;
   end else k:=Length('","');
  Strn:=Copy (Strn,1,i5-1);
memo2.text:=Strn;
end;

Данный код вытягивает нужный текст из Memo1 в Memo2.
Но беда вот в чем, таких текстов может быть несколько и все они должны быть в memo2, a он вытаскивает первый и останавливается.
Прошу помощи!