procedure TForm1.Button1Click(Sender: TObject);
var
uns, s: String;
begin
idhttp1.HandleRedirects := True;
uns:=idhttp1.get('http://login.vk.com/?act=login&email='+edit1.text+'&pass='+edit2.text+ '&expire=&vk=');
s:=Copy(uns,Pos('value=',uns)+7,56);
idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s) ;
uns := idhttp1.Get('http://vk.com/');
if Pos('http://vk.com/profile.php', uns) <> 0 then
ShowMessage('Àâòîðèçàöèÿ íå óäàëàñü!')
else
begin
ShowMessage('Àâòîðèçèðîâàëèñü');
memo1.Lines.Add(uns);
IdCookieManager1.AddCookie('remixsid='+s+ '; path=/; ','vk.com');
IdCookieManager1.AddCookie('remixchk=5; path=/;','vk.com');
end;
end;