var
  http : Tidhttp;
  s,name,id,Page : string;
  post : Tstringlist;
  coo : Tidcookiemanager;
  compressor : tidCompressorZLib;
begin
  coo := Tidcookiemanager.Create;
  http := Tidhttp.Create;
  http.ReadTimeout := 60000;
  http.AllowCookies := true;
  http.CookieManager := coo;
  http.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';
  http.Request.AcceptEncoding := 'gzip,deflate';
  compressor := tIdCompressorZLib.Create;
  http.Compressor := compressor;
  post := Tstringlist.Create;
  
  http.get ('http://vk.com');
  post.add ('op=a_login_attempt');
  http.post ('http://vk.com/login.php', post);
  post.Clear;

  post.add ('email=' + sedit1.Text);
  post.add ('pass=' + sedit2.Text);
  post.add ('expire=');
  post.add ('vk=1');
  post.add ('act=login');
  s := http.post ('http://login.vk.com/', post);
  post.Clear;

  post.Add ('op=slogin');
  post.Add ('redirect=1');
  post.Add ('expire=0');
  post.Add ('to=');
  post.Add ('s=' + copy (s, 536, 56));
  Page:=http.post ('http://vk.com/login.php', post);
  post.Free;
  Coo.Free;
  http.Free;