var HTTP : TidHTTP;

procedure VK_Login(email, pass: string);
var
  cookie : TidCookieManager;
  uns     : string;
  Data   : TStringList; 
begin
  Cookie := TidCookieManager.Create(nil);
  HTTP    := TidHTTP.Create(nil);
  Data    := TStringList.Create;
  HTTP.CookieManager := Cookie;
  HTTP.AllowCookies := True;
  HTTP.HandleRedirects := True;
  HTTP.Request.UserAgent := 'Mozilla/5.0';

  Data.Add('email='+email);
  Data.Add('pass='+pass);
 
  Uns := HTTP.Post('http://login.vk.com/?act=login', Data);
  Uns := Copy(uns, 286, 56);
 
  Cookie.AddCookie('remixsid=' + Uns + '; path=/;', 'vkontakte.ru');
  Cookie.AddCookie('remixchk=5; path=/;', 'vkontakte.ru');
end;