Авторизация mail.ru

[doqsoftware]

Всем привет, подскажите, пожалуйста, в чем может быть ошибка. Функция постоянно возвращает в result false. Спасибо!

uses HTTPSend;
 
function Auth: boolean;
var
   HTTP: THTTPSend;
   DATA: TStringStream;
   Str: TStringList;
begin
 HTTP:= THTTPSend.Create;
 DATA:= TStringStream.Create('');
 //Str:= TStringList.Create;
 
 DATA.WriteString('post=&login_from=&new_auth_form=1&saveauth=1&Login=doqsoftware3&Domain=mail.ru&Password=mypass');
 HTTP.Document.LoadFromStream(DATA);
 HTTP.UserAgent:= 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:38.0) Gecko/20100101 Firefox/38.0';
 if HTTP.HTTPMethod('POST', 'https://auth.mail.ru/cgi-bin/auth') then
 begin
  if pos('Mpop=', HTTP.Headers.Text) <> 0 then
   result:= true
  else
   result:= false;
 end else
  result:= false;
end;