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=test');
params.Add('password=Test');
params.Add('rem=1');
params.Add('a=2');
params.Add('ajax=1');
params.Add('rnd=' + rndResult);
cod:=IdHTTP1.Post('http://sacred2-zone.ru/', params);

if pos ('Вы вошли как test',cod)<>0 then showmessage ('ok');
memo1.Text:=cod;
params.Free;