var
  Page : TStringList;
  I : Integer;
  url : string;
begin
  Page := TStringList.Create;
  Page.Text := HTTP.Get('http://vkontakte.ru/idxxxxxx');
  For I := 0 to Page.Count -1 do
  begin
    if Pos('<div id="profilePhoto"', page[i]) <> 0 then
    begin
      url := page[i +1];
      url := Copy(url, Pos('http://', url), Length(url));
      Delete(url, Pos('/>', url), Length(url));
    end;
  end;
page.Free;
end;

// url - ссылка на аву)))