есть такое.
Исправь в скрипте в строке 839:
curPos := PosFrom ('<a class="all"', Tmp, curPos);
на
curPos := PosFrom ('<div class="personPageItem">', Tmp, curPos);
и в строке 842:
url := BASE_URL + Replace (TextBetween (Tmp, '<a class="all" href="', '">', false, curPos));
на
url := BASE_URL + Replace (TextBetween (Tmp, '<a style="color: #005; text-decoration: underline" href="', '">', false, curPos));