var i:integer ;
CookMan: TidCookieManager;
Params: TStringList;
username,password:string;
begin

IdHTTP1.AllowCookies:=true;
CookMan:=TidCookieManager.Create(idHTTP1);
idHttp1.CookieManager := CookMan;
username := edit1.Text;
password := edit2.Text;
Params:=TStringList.Create;
Params.add('op=a_login_attempt');
Params.add('email='+username);
Params.add('pass='+password);
Params.add('expire=');
Params.add('vk=');


try
IdHTTP1.Port:=80;


IDHttp1.Request.UserAgent:='Mozila';


IdHTTP1.Request.Referer:='http://login.vk.com/?act=login';


memo1.Lines.Text:=
IdHttp1.Post('http://login.vk.com/?act=login',params);

finally
// IdHTTP1.Free;
// IdHandler.Free;
// Params.Free;
end;