[bulldog]

ПС: Учитесь пользоваться встроенным отладчиком.

Знать бы ещё где он находится

Попробуйте так:
Код:
str := StringReplace(str,#13#10,'',[rfReplaceAll]);
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

Нечего не выводит

сначала избавится от ненужных спецсимволов, а уже потом искать шаблоны.
Попробуйте так:
Код:
str := StringReplace(str,#13#10,'',[rfReplaceAll]);
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,BPos - EPos));
Delete(str,1, BPos+12);
end

Выводит, но с мусором, последний вариан хоть что то показывает