Http.Document.Clear;
         HTTP.Cookies.Clear;
         DecompStream.Clear;
         Html.Clear;
         Http.Headers.Clear;
         HTTP.Clear;
         Http.Headers.Insert(0,'Accept: */*');
         HTTP.UserAgent:='Downloader/11240';
         HTTP.MimeType:='application/x-www-form-urlencoded';
         DecompStream.WriteString('client_id=gamecenter.mail.ru&grant_type=password&username='+Login+'&password='+pass);
         Http.Document.LoadFromStream(DecompStream);
         if Http.HTTPMethod('POST','https://o2.mail.ru/token') then
         begin
         Html.LoadFromStream(http.Document);
           if HTTP.ResultCode = 200 then
           begin
             if pos('","access_token":"',html.Text)<>0 then
             begin
              Token:=pars('","access_token":"',html.Text,'"}');
               Http.Document.Clear;
               HTTP.Cookies.Clear;
               Http.Headers.Clear;
               HTTP.Clear;
               DecompStream.Clear;

               HTTP.KeepAlive := False;
               HTTP.MimeType:='application/x-www-form-urlencoded';
               DecompStream.WriteString('<?xml version="1.0" encoding="UTF-8"?><MrPage2 SessionKey="'+Token+'" Page="http://dl.mail.ru/robots.txt"/>');
               http.Document.LoadFromStream(DecompStream);
               if HTTP.HTTPMethod('POST','https://authdl.mail.ru/ec.php?hint=MrPage2') then
               begin
                Html.LoadFromStream(http.Document);
                   token := Pars('agent=',HTML.Text,'&');

                     Http.Document.Clear;
                     HTTP.Cookies.Clear;
                     Http.Headers.Clear;
                     HTTP.Clear;
                     DecompStream.Clear;
                     Html.Clear;
                     HTTP.UserAgent:='Downloader/11240';
                     if HTTP.HTTPMethod('GET','https://auth.mail.ru/cgi-bin/auth?Login='+Login+'&agent='+token+'&page=http%3A%2F%2Fdl.mail.ru%2Frobots.txt') then
                     begin
                      if pos('Set-Cookie: Mpop=',http.Headers.Text)<>0 then
                      begin
                        Token:='';
                        Token:=pars('Set-Cookie: Mpop=',http.Headers.Text,'; expires=');

                        Http.Document.Clear;
                        Http.Headers.Clear;
                        DecompStream.Clear;
                        Html.Clear;
                         Http.Headers.Insert(0,'Accept: */*');
                         HTTP.UserAgent:='Downloader/11240';
                         HTTP.MimeType:='application/x-www-form-urlencoded';
                         DecompStream.WriteString('<?xml version="1.0" encoding="UTF-8"?><Auth ProjectId="1177" SubProjectId="0" ShardId="2" Mpop="'+token+'"/>');
                         Http.Document.LoadFromStream(decompstream);
                        if http.HTTPMethod('POST','https://authdl.mail.ru/sz.php?hint=Auth') then
                        begin
                        Html.LoadFromStream(http.Document);
                          if pos('<Auth PersId="',html.Text)<>0 then
                          begin
                          PersId:=pars('<Auth PersId="',html.Text,'"/>');
                          Http.Document.Clear;
                          Http.Headers.Clear;
                          DecompStream.Clear;
                          Html.Clear;
                          Http.Headers.Insert(0,'Accept: */*');
                          HTTP.UserAgent:='Downloader/11240';
                          HTTP.MimeType:='application/x-www-form-urlencoded';
                            if  http.HTTPMethod('GET','https://wf.mail.ru/dynamic/top/?a=get_ladder_info_gamecenter&server=1&category=1&userid='+PersId) then     //alpha
                            begin
                               Html.LoadFromStream(http.Document);
                              if Pos('<li class="selected">',HTML.Text) <> 0 then
                              begin
                               a:=pars('<li class="selected">',html.Text,'</li>');
                               NickA:= Pars('<div class="nickname">',Utf8ToAnsi(a),'</div>');
                                RangA:= Pars('icon_rank_',Utf8ToAnsi(a),'"></div>');
                              end
                              else
                              begin
                               RangA := '0';
                              end;
                            end
                            else
                            begin
                             Rez:=0;
                            end;
                              if  http.HTTPMethod('GET','https://wf.mail.ru/dynamic/top/?a=get_ladder_info_gamecenter&server=2&category=1&userid='+PersId) then  //bravo
                            begin
                              Html.LoadFromStream(http.Document);
                             if Pos('<li class="selected">',HTML.Text) <> 0 then
                              begin

                               b:=pars('<li class="selected">',html.Text,'</li>');
                               NickB:= Pars('<div class="nickname">',Utf8ToAnsi(b),'</div>');
                               RangB:= Pars('icon_rank_',Utf8ToAnsi(b),'"></div>');
                              end
                              else
                              begin
                                RangB:='0';
                              end;
                            end
                            else
                            begin
                             Rez:=0;
                            end;
                              if  http.HTTPMethod('GET','https://wf.mail.ru/dynamic/top/?a=get_ladder_info_gamecenter&server=3&category=1&userid='+PersId) then   //charli
                            begin
                            Html.LoadFromStream(http.Document);
                                if Pos('<li class="selected">',HTML.Text) <> 0 then
                                begin
                                c:=pars('<li class="selected">',html.Text,'</li>');
                                 NickCh:= Pars('<div class="nickname">',Utf8ToAnsi(c),'</div>');
                                 RangCh:= Pars('icon_rank_',Utf8ToAnsi(c),'"></div>');
                                end
                                else
                                begin
                                  Rangch:='0';
                                end;
                            end
                            else
                            begin
                             Rez:=0;
                            end;
                               Http.Document.Clear;
                              Http.Headers.Clear;
                              DecompStream.Clear;
                              if http.HTTPMethod('GET','https://wf.mail.ru/dynamic/sms/') then
                              begin
                                html.LoadFromStream(http.Document);
                                if pos('span class="iblock">Аккаунт привязан к номеру:',utf8toansi(html.Text))<>0 then
                                begin
                                  mob:='Привязан';
                                end
                                else
                                begin
                                  mob:='Не привязан';
                                end;
                              end
                              else
                              begin
                                Rez:=0;
                              end;
                            Rez:=1;
                          end
                          else
                          begin
                            Rez:=0;
                          end;
                        end
                        else
                        begin
                          Rez:=0;
                        end;
                      end
                      else
                      begin
                        Rez:=0;
                      end;
                     end
                     else
                     begin
                       Rez:=0;
                     end;

               end
               else
               begin
                 Rez:=0;
               end;
             end
             else
             begin
               Rez:=2;
             end;
           end
           else
           begin
             Rez:=0;
           end;
         end
         else
         begin
             Rez:=0;
         end;