парсинг сайта

[Jadson]

есть 2 кода для разных сайтов,по сути одинакаво должны работать,но в певром варианте берет все записи запрашиваемые,а втором только первую .в чем проблема?

1 вариант

var
  Form2: TForm2;
  ht,st,ss: string;
  v_name,v_opis,v_city,posprice,v_price: string;
  i,j: integer;
  Find:string; // Искомая строка
  k:integer; // Счетчик для цикла
   v_full : string;
   pp, pp_start : Integer;
procedure TForm2.RadioButton1Click(Sender: TObject);
begin
  st:=Utf8ToAnsi(idhttp1.Get('http://www.work.ua/jobs/?category=1'));
  memo1.Lines.Add('=======================Вакансии======================='+#13#10#13#10);
  repeat
    v_name:=copy(st,pos('class="bf">',st)+11,pos('<td align',st)-pos('class="bf">',st)-24);

     memo1.Lines.Add('Заголоваок: '+v_name);

    memo1.Lines.Add(#13#10#13#10+'--------------'+#13#10#13#10);
     st:=copy(st,pos('</a></noindex></p></td>',st)+25,length(st));
  until (pos('</a></noindex></p></td>',st) = 0);
end;

2 вариант

var
  Form2: TForm2;
  ht,st,ss: string;
  v_name,v_opis,v_city,posprice,v_price: string;
  i,j: integer;
  Find:string; // Искомая строка
  k:integer; // Счетчик для цикла
   v_full : string;
   pp, pp_start : Integer;
procedure TForm2.RadioButton1Click(Sender: TObject);
begin
  st:=Utf8ToAnsi(idhttp1.Get('http://rabota.ua/jobsearch/vacancy_list?regionId=1&parentId=1'));
  memo1.Lines.Add('=======================Вакансии======================='+#13#10#13#10);
  repeat
    v_name:=copy(st,pos('style="text-decoration:underline">',st)+34,pos('class="rua-b-vacancy-company-name">',st)-pos('style="text-decoration:underline">',st)-51);

     memo1.Lines.Add('Заголоваок: '+v_name);

    memo1.Lines.Add(#13#10#13#10+'--------------'+#13#10#13#10);
     st:=copy(st,pos('</a></noindex></p></td>',st)+20,length(st));
  until (pos('</a></noindex></p></td>',st) = 0);
end;