Delphi XE. Авторизация на сайте. Про idCookieManager

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdAntiFreezeBase, IdAntiFreeze, IdCookieManager,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;
 
type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    IdCookieManager1: TIdCookieManager;
    IdAntiFreeze1: TIdAntiFreeze;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    function authvk(l,p:string):boolean;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function TForm1.authvk(l, p: string): boolean;
var
 s, c, remixchk, remixsid: string;
 i: Integer;
 cookie:Tidcookiemanager;
 freeze:TIdAntiFreeze;
 http: TIdHTTP;
begin
cookie:=Tidcookiemanager.Create(self);
http := TIdHTTP.Create(self);
http.CookieManager:=cookie;
freeze:=TIdAntiFreeze.Create(self);
http.AllowCookies := False;
http.HandleRedirects := False;
try
s:=HTTP.get('http://vk.com/login.php?email='+l+'&pass='+p);
except
if (http.ResponseCode=302) then begin
 c := http.Response.RawHeaders.Text;
 i := Pos('remixchk', c) + 9;
 remixchk := Copy(c, i, length(c));
 remixchk := Copy(remixchk, 1, pos(';',remixchk)-1);
 i := Pos('remixsid', c) + 9;
 remixsid := Copy(c, i, length(c));
 remixsid := Copy(remixsid, 1, pos(';',remixsid)-1);
 http.Request.CustomHeaders.Text := 'Cookie: remixchk='+remixchk +'; remixsid='+remixsid;
 http.CookieManager.AddCookie('remixchk='+remixchk+'; remixsid='+remixsid,'http://vk.com');
 s:=http.get('http://vk.com'+http.Response.Location);
 end;
 end;
 if (pos('Добро пожаловать',s)>0) or (pos('Вход',s)>0) then result:=false else begin result:=true;
 s:=copy(s,pos('',s)-1);
showmessage(s);
 end;
freeandnil(http);
freeandnil(cookie);
freeandnil(freeze);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if authvk('ваш логин','ваш пароль') then showmessage('Авторизовались!!') else showmessage('Не смогли вы авторизоваться!!!');
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
end;
 
end.