Авторизация mail.ru через POST-запрос

function TForm1.Autorization(Login,Password,Domain:string):Boolean;     //Àâòîðèçàöèÿ
var
params, responseres : tstringlist;
Z : integer;
begin
Z:=0; //Ïåðåìåííàÿ öèêëà
 
while Z<1 do
 begin
 idhtp1.Request.Host:='auth.mail.ru';
 idhtp1.Request.Connection:='Keep-Alive';
 idhtp1.Request.UserAgent:='Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; Trident/6.0)';
 idhtp1.Request.Accept:='text/html, application/xhtml+xml, */*';
 idhtp1.Request.AcceptLanguage:='ru-RU';
 idhtp1.Request.Referer:='http://mail.ru/?from=logout&ref=main';
 idhtp1.Request.ContentType:='application/x-www-form-urlencoded';
 
 params:=TStringList.Create;
 responseres:=TStringList.Create;
 //Internet_Proverka;
 
 try
  params.Add('Domain='+Domain);
  params.Add('Login='+Login);
  params.Add('Password='+Password);
  params.Add('new_auth_form=1');
  params.Add('saveauth=1Domain='+Domain);
  params.Add('Login='+Login);
  params.Add('Password='+Password);
  params.Add('new_auth_form=1');
  params.Add('saveauth=1');
  responseres.Text:=idhtp1.Post('https://auth.mail.ru/cgi-bin/auth?from=splash',params);
  responseres.SaveToFile('index.htm');
 
 except
  on e:EIDHttpProtocolException do
   Begin
      //Continue;
      ShowMessage('1');
   end;
  on e:EIdException do
   begin
      //Continue;
      ShowMessage('2');
   end;
 end;
 
  if Pos('logout',responseres.Text)>0 then
   begin
   Result:=True;
   If FileExists(edt5.Text) then DoZapis(edt5.Text,'Óñïåøíàÿ Àâòîðèçàöèÿ ' + Login + '@' + Domain + ':' + Password) else CreateF(edt5.Text,'Óñïåøíàÿ Àâòîðèçàöèÿ ' + Login + '@' + Domain + ':' + Password);
   end
  Else
   begin
   Result:=False;
   If FileExists(edt5.Text) then DoZapis(edt5.Text,'Îøèáêà Àâòîðèçàöèè ' + Login + '@' + Domain + ':' + Password) else CreateF(edt5.Text,'Îøèáêà Àâòîðèçàöèè ' + Login + '@' + Domain + ':' + Password);
   end;
 
  params.free;
  responseres.free;
  Z:=1; //Âûõîäèì èç öèêëà
 end;
 
end;