http:=TIdHTTP.Create(Self);
data :=TStringList.Create;
CooM:=TidCookieManager.Create(http);
http.AllowCookies:=true;
http.CookieManager:=CooM;
http.HandleRedirects:=true;
data.Add('u=1');
data.Add('success_url=');
data.Add('fail_url=');
data.Add('try_to_login=1');
data.Add('email='+Edit1.Text);
data.Add('pass='+Edit2.Text);
Page:= http.Post('http://vkontakte.ru/login.php?', data);
memo1.text:=page;
memo2.Text:=http.Get('profile.php')