[Страдалецъ]

Кому эта тема интересна. Финальный код:

Код:

while Pos('view.php?ad=', s) > 0
do begin
   Delete(s, 1, Pos('view.php?ad=', s) + 12);
   EPos := Pos('" target="_blank"', s);
   with ListView1.Items.Add
   do begin
      Caption := System.Copy(s, 1, EPos-1);
      System.Delete(s, 1, EPos+17);
      EPos := Pos('</a>', s);
      SubItems.Add(System.Copy(s, 1, EPos-1));
      end;
   Delete(s, 1, EPos+3);
end