Фото в контакте

[Droniwe]

Добрый день бьюсь второй день как рыба об лед не могу понять вчем пробелма при загрузки картинки вконтакт поле с фото пустое
вод код

procedure TForm1.Button2Click(Sender: TObject);
begin
form2.Visible:=true;
form2.WebBrowser1.Navigate('http://oauth.vk.com/authorize?client_id=3389929&scope=wall,photos,messages,groups&redirect_uri=http://oauth.vk.com/blank.html&display=touch&response_type=token');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
IdHTTP1.Request.ContentType:='multipart/form-data';
a:=form2.WebBrowser1.LocationURL;
a:=Pars('access_token=',a,'&') ;
b:=IdHTTP1.Get('https://api.vk.com/method/photos.getUploadServer.xml?aid=169242587&access_token='+a);
b:=pars2('<upload_url>','</upload_url>',b);
  While pos('amp;',b)>0 do
  begin
  delete(b,pos('am',b),4);
  end;
  memo2.Text:=b;
photo:= TIdMultiPartFormDataStream.Create;
photo.AddFile('photo1', 'D:\1.jpg', 'image/jpeg');
Memo1.Text:=IdHTTP1.Post(b, photo);


//IdHTTP1.Get('https://api.vk.com/method/photos.getComments.xml?owner_id=198919093&aid=169242587&offset=0&count=100&access_token='+a);

end;

ответ от сервера
{"server":407729,"photos_list":"[]","aid":169242587,"hash":"390d244ad 49713436b5c691a71bce9b0"}

как видно фотолист пустое помогите плиз

[HSR]

Куки вкл.?

[Alex2009]

Дайте полные права на доступ

Замените адрес в

WebBrowser1.Navigate('http://oauth.vk.com/authorize?client_id=3389929&scope=wall,photos,messages,groups&redirect_uri=http://oauth.vk.com/blank.html&display=touch&response_type=token');

на

http://oauth.vk.com/authorize?client_id=3389929&scope=notify,friends,photos,audio,video,status,wall,groups,messages,stats&redirect_uri=http://oauth.vk.com/blank.html&display=touch&response_type=token