парсинг друзей вконтакте

[SAMY93]

Здравствуйте. есть одна проблема: после успешной авторизации вконтакте делаю гет запрос

 memo1.text:=idhttp1.post('http://vkontakte.ru/friends_ajax.php',data);

, но в мемо выводятся данные, как будто я пытаюсь зайти с не авторизованной страницы.Вот код целиком

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  StdCtrls;

type
  TForm3 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    IdHTTP1: TIdHTTP;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var data:tstringlist;
     PageProfile:string;
     error:boolean;
begin
 IdHTTP1.AllowCookies:=true;
 IdHTTP1.HandleRedirects:=true;
 data:=tstringlist.create;
 data.Add('email=******@yandex.ru'); // логин для авторизации
 data.Add('pass=******');  // пароль для авторизации
 data.Add('expire=');
 data.Add('vk=');
 error:=false;
 try
  PageProfile:=IdHTTP1.Post('http://login.vk.com/?act=login', 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=0');
   data.Add('to=');
   IdHTTP1.HandleRedirects:=true;

   try

    PageProfile:=IdHTTP1.Post('http://vkontakte.ru/login.php', data);
     memo1.text:=idhttp1.get('http://vkontakte.ru/friends_ajax.php');

   except
   end;
   begin
   Memo1.Lines.Add('Авторизация удалась');

   end;
  end
 else
  Memo1.Lines.Add('Авторизация не удалась');

 Data.Free;
end;


end.

[N0iD]

на до бы кукисы вкулючить