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);
   cod:=memo1.Text;
     if pos ('Вы вошли как',cod)<>0 then showmessage ('ok');

    params.Free;