procedure TForm1.aVK;
var
http:TIDHHTP;
data:Tstrings;
logs:TMEMO;
error:boolean;
Cookie:TIDCookieManager;
begin
data:=Tstringlist.Create;
    HTTP.AllowCookies:=true;

   HTTP.HandleRedirects:=false;
   data:=tstringlist.create;
   data.add('act=login');
   data.add('q=1');
   data.add('al_frame=1');
   data.Add('expire=');
   data.add('captcha_sid=');
   data.add('captcha_key=');
   data.add('from_host=vkontakte.ru');
   data.Add('vk=');
   data.Add('email='+login.Text); // логин для авторизации

   data.Add('pass='+pass.Text);  // пароль для авторизации

   error:=false;
   try
http.Post('http://login.vk.com/?act=login', data);
       except on e : EIDHttpProtocolException do
     Begin
       if e.ErrorCode = 302 then
         begin
           try
             // получаем новый адрес - адрес перенаправления
             if pos('hash',http.Response.Location)<>0 then  begin
             logs.Lines.Add('Авторизация прошла успешно');

                   http.get(HTTP.Response.Location);
                      Cookie.cookieCollection.Clear;
                      Cookie.cookieCollection.AddClientCookie(copy(http.Response.RawHeaders.text,pos('remixsid',http.Response.RawHeaders.te xt),pos('Vary: Accept-Encoding',http.Response.RawHeaders.text)-pos('remixsid',http.Response.RawHeaders.text)));
                      try
                     logs.lines.add(http.get('http://vkontakte.ru'));
                     except on e : EIDHttpProtocolException do
     Begin
       if e.ErrorCode = 302 then
         begin
           try
             // получаем новый адрес - адрес перенаправления

                       // logs.Lines.Add('Авторизация прошла не успешно');
                  //      Cookie.cookieCollection.AddClientCookie(copy(http.Response.RawHeaders.text,pos('remixsid',http.Response.RawHeaders.text),pos('Vary: Accept-Encoding',http.Response.RawHeaders.text)-pos('remixsid',http.Response.RawHeaders.text)));   // items[1].cookieText:
                        logs.lines.add(http.get(HTTP.Response.Location));
           except on e:Exception do
      // предусматриваем, что исключение может возникнуть и тут
             ShowMessage('Авторизация не пройдена'+e.Message);
           end;
         end
       else
         //http 404, 501 и так далее
         ShowMessage('Ошибка другого вида, не 302:'+e.Message);
     end;
   on e:Exception do
     ShowMessage('Ошибка: ' + e.Message);
   end;

                   end
       else begin
               error:=true;
             logs.Lines.Add('Авторизация прошла не успешно');
             end;
           except on e:Exception do
      // предусматриваем, что исключение может возникнуть и тут
             ShowMessage('Ошибка при получении нового адреса.'+e.Message);
           end;
         end
       else
         //http 404, 501 и так далее
         ShowMessage('Ошибка другого вида, не 302:'+e.Message);
     end;
   on e:Exception do
     ShowMessage('Ошибка: ' + e.Message);
end;
end;