Var sa : TStringArray;
    _html : String;
Begin
      //Тут получешь html страницы поиска и заосишь в переменную _html
      sa := MultiParseString('addToFriends(', ', this.parentNode);', _html, false);
      //Теперь в массиве sa будут в каждой ячейке ID пользователя в формате String.

i := 1;
while not eoln(stroka) do
begin
  if storka[i]<>' ' then
  begin
    rezStroka := rezStroka + stroka[i];
    inc(i);
    if (lenght(rezStroka)>5)and (lenght(rezStroka)<8) then
      break;
  end
  else
  begin
    rezStroka := '';
    inc(i);
  end;
end;