Код:
procedure TForm4.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://oauth.vkontakte.ru/authorize?client_id=2750730&scope=audio,offline&display=page&response_type=token');
end;
Если использовать только это как мне дальше вытягивать например имя аккаунта его друзей и т.д