procedure TForm1.Button1Click(Sender: TObject);
var
uns, s : String;
begin
uns:=idhttp1.get('http://login.vk.com/?act=login&email='+edit1.text+'&pass='+edit2.text+ '&expire=&vk=');
s:=copy(uns, 286, 56);
idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s) ;
if Pos('http://vk.com/profile.php',s )>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
IdCookieManager1.AddCookie('remixsid='+s+ '; path=/; ','vk.com');
IdCookieManager1.AddCookie('remixchk=5; path=/;','vk.com');
end;
end.