idHTTP1.AllowCookies := True;
cod := idHttp1.Get('http://sacred2-zone.ru/');
rndResult:= copy (cod,pos('input type="hidden" name="rnd" value="',cod)+38,3);

params:=tstringlist.create;
params.Add('user=логин');
params.Add('password=пароль');
params.Add('rem=1');
params.Add('a=2');
params.Add('ajax=1');
params.Add('rnd=' + rndResult);
cod:=IdHTTP1.Post('http://sacred2-zone.ru/index/sub/', params);
memo1.Text:=cod;
params.Free;