unit Unit1;

interface

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

type
   TForm1 = class(TForm)
     IdHTTP1: TIdHTTP;
     Memo1: TMemo;
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;
   Kuka,serv,zaza:string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
idHTTP1:=TidHTTP.Create(nil);
Kuka:=IdHTTP1.Get('http://vkontakte.ru/login.php?email=red-z@bk.ru&pass=nokian7373');
memo1.text:=Kuka;
end;

end.

unit Unit1;

interface

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

type
   TForm1 = class(TForm)
     IdHTTP1: TIdHTTP;
     Memo1: TMemo;
     Button1: TButton;
     Edit1: TEdit;
     Edit2: TEdit;
     IdCookieManager1: TIdCookieManager;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;

implementation

procedure autorisation;
var
uns: String;
s: String;
begin
uns:=form1.idhttp1.get('http://login.vk.com/?act=login&email='+form1.edit1.text+'&pass='+form1.edit2.text+'&expire=&vk=');
s:=copy(uns, 286, 56);
form1.idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s);
form1.IdCookieManager1.AddCookie('remixsid='+s+ '; path=/; ','vk.com');
form1.IdCookieManager1.AddCookie('remixchk=5; path=/;','vk.com');
try
form1.idhttp1.get('http://vk.com/profile.php');
finally
if s = '' then
begin
form1.memo1.Lines.add('Не удалось');
end
else
begin
form1.memo1.Lines.add('Авторизация успешна, ваш remixsid='+s)
end;
end;
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Autorisation;
end;

end.