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

Ну будем считать, что там идет всегда после цифр без пробелов " target="
Тогда можно попробовать примерно так:

Код:

while Pos('view.php?ad=',str)>0 
do begin
    BPos := Pos('view.php?ad=',str)+12;
    EPos := Pos('" target="',str);
    ListView1.Items[0].SubItems.Append(Copy(str,BPos,EPos - BPos));
    Delete(str,1, BPos+12);
    end;