Получение фото и имени пользователя после успешной авторизации Vk

var data:tstringlist; 
PageProfile:string; 
error:boolean; 
begin 
IdHTTP1.AllowCookies:=true; 
IdHTTP1.HandleRedirects:=false; 
data:=tstringlist.create; 
data.Add('act=login'); 
data.Add('expire=1'); 
data.Add('vk='); 
data.Add('email=ваш_логин'); // логин для авторизации 
data.Add('pass=пароль'); // пароль для авторизации 
data.Add('success_url=http://vkontakte.ru/share.php?act=logged'); 
error:=false; 
try 
PageProfile:=IdHTTP1.Post('http://login.vk.com/', data); 
except 
error:=true; 
end; 
 
if not(error) then 
begin 
data.Clear; 
data.Add('s='+Copy(PageProfile, Pos('value', PageProfile)+7, 56)); 
data.Add('op=slogin'); 
data.Add('redirect=1'); 
data.Add('expire=1'); 
data.Add('to='); 
IdHTTP1.HandleRedirects:=true; 
try 
IdHTTP1.Post('http://vkontakte.ru/share.php?act=logged', data); 
except 
end; 
PageProfile:=IdHTTP1.get('http://vkontakte.ru'); 
Memo1.Lines.Add('Авторизация удалась'); 
end 
else 
Memo1.Lines.Add('Авторизация не удалась'); 
 
Data.Free; 
end;

procedure TForm1.Button1Click(Sender: TObject);
var log :string;
    MS:TMemoryStream;
    pic: TJPEGImage;
// метод getProfiles. ID берем из ProfileEdit
begin
 sigmd5:=mid+'api_id=1911836fields=sex,nickname,bdate,city,country,timezone,photo_big,has_mobile,rate,contacts,educationformat=XMLmethod=getProfilesuids='+ProfileEdit.Text+'v=3.0'+secret;
 sigmd5:=md5(sigmd5);
 log:=idHTTP1.get('http://api.vkontakte.ru/api.php?api_id=1911836&format=XML&method=getProfiles&sid='+sid+'&sig='+sigmd5+'&uids='+ProfileEdit.Text+'&v=3.0&fields=sex,nickname,bdate,city,country,timezone,photo_big,has_mobile,rate,contacts,education');
 NameEdit.Text:=Pars('<first_name>', log, '</first_name>');
 FamilyEdit.Text:=Pars('<last_name>', log, '</last_name>');
 SexEdit.Text:=Pars('<sex>', log, '</sex>');
 NickEdit.Text:=Pars('<nickname>', log, '</nickname>');
 BdateEdit.Text:=Pars('<bdate>', log, '</bdate>');
 CityEdit.Text:=Pars('<city>', log, '</city>');
 CountryEdit.Text:=Pars('<country>', log, '</country>');
 RateEdit.Text:=Pars('<rate>', log, '</rate>');
 MobEdit.Text:=Pars('<mobile_phone>', log, '</mobile_phone>');
 HomeEdit.Text:=Pars('<home_phone>', log, '</home_phone>');
 PhotoEdit.Text:=Pars('<photo_big>', log, '</photo_big>');
 
 // запрашиваем фото
 if PhotoEdit.Text<>'http://vkontakte.ru/images/question_a.gif' then
  begin
   MS:=TMemoryStream.Create;
   pic:= TJPEGImage.Create;
   idHTTP1.Get(PhotoEdit.Text,MS);
   MS.Position:=0;
   pic.LoadFromStream(MS);
   Image1.Picture.Assign(pic);
   MS.Free;
   pic.Free;
  end
 else
  Image1.Picture.LoadFromFile('question_a.jpg');
end;

IdHTTP1.HandleRedirects:=false;

 IdHTTP1.Post('http://login.vk.com/', data);

PageProfile:=IdHTTP1.get('http://vkontakte.ru');