HTTP.UserAgent := 'Mozilla/5.0 (iPod; CPU iPhone OS 12_0 like macOS) AppleWebKit/602.1.50 (KHTML, like Gecko) Version/12.0 Mobile/14A5335d Safari/602.1.50';

        HTTP.Headers.Insert(0, 'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8');
        HTTP.Headers.Insert(1, 'Accept-Language: en-EN,en;q=0.9,en-US;q=0.8,en;q=0.7');

        if HTTP.HTTPMethod('GET', 'https://members.bet365.com/Members/Login/') then
        begin
          Response.LoadFromStream(HTTP.Document);
          CurrentPars[0] := Pars('<input type="hidden" name="__VIEWSTATE" id="__VIEWSTATE" value="', Response.Text, '"');
          CurrentPars[1] := Pars('<input type="hidden" name="__VIEWSTATEGENERATOR" id="__VIEWSTATEGENERATOR" value="', Response.Text, '"');
          CurrentPars[2] := Pars('<input type="hidden" name="__PREVIOUSPAGE" id="__PREVIOUSPAGE" value="', Response.Text, '"');
          CurrentPars[3] := Pars('<input type="hidden" name="__EVENTVALIDATION" id="__EVENTVALIDATION" value="', Response.Text, '"');
          CurrentPars[4] := Pars('name="txtTKN" id="txtTKN" value="', Response.Text, '"');
          CurrentPars[5] := Pars('id="txtType" value="', Response.Text, '"');
          CurrentPars[6] := Pars('name="txtSTKN" id="txtSTKN" value="', Response.Text, '"');

          HTTP.Headers.Clear;
          HTTP.Document.Clear;

          HTTP.Headers.Insert(0, 'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8');
          HTTP.Headers.Insert(1, 'Referer: https://members.bet365.com/Members/Login/');
          HTTP.Headers.Insert(2, 'Accept-Language: en-EN,en;q=0.9,en-US;q=0.8,en;q=0.7');

          HTTP.MimeType := 'application/x-www-form-urlencoded';

          Data.WriteString('__LASTFOCUS=&__EVENTTARGET=ctl00%24main%24login%24lkSbmt&__EVENTARGUMENT=&__VIEWSTATE=' + URLEncode(CurrentPars[0]) + '&__VIEWSTATEGENERATOR=' + CurrentPars[1] + '&__PREVIOUSPAGE=' + CurrentPars[2] + '&__EVENTVALIDATION=' + URLEncode(CurrentPars[3]) + '&bet365ss=1600+x+900&bet365fv=&hdnBaseControl=ctl00_main_login&txtUserName=' + Login + '&txtPassword=' + Pass + '&txtTKN=' + CurrentPars[4] + '&txtType=' + CurrentPars[5] + '&txtSTKN=' + CurrentPars[6] +
            '&txtDeepLink=&ctl00%24main%24login%24UserNameText=Username&ctl00%24main%24login%24UserName=' + Login + '&ctl00%24main%24login%24PasswordText=' + Pass + '&pwd2=A&pwd3=B&ctl00%24main%24login%24Password=' + Pass + '&NotificationSequence=&ctl00%24main%24login%24hdnUsernameText=Username&ctl00%24main%24login%24hdnPasswordText=Password&baseId=ctl00&showValidIcons=True&showInvalidIcons=True&showHelpTips=True&showErrorTips=True&mbcId=ctl00_mbc');
          HTTP.Document.LoadFromStream(Data);

          if HTTP.HTTPMethod('POST', 'https://members.bet365.com/Members/lp/default.aspx') then
          begin
            Response.LoadFromStream(HTTP.Document);
            if Pos('Set-Cookie: aaat=', HTTP.Headers.Text) <> 0 then
            begin
              Rez := 3;

              HTTP.Headers.Clear;
              HTTP.Document.Clear;

              HTTP.Headers.Insert(0, 'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8');
              HTTP.Headers.Insert(1, 'Referer: https://members.bet365.com/members/services/host/?microsite=notifications&displaymode=desktop');
              HTTP.Headers.Insert(2, 'Accept-Language: en-EN,en;q=0.9,en-US;q=0.8,en;q=0.7');

              HTTP.HTTPMethod('GET', 'https://members.bet365.com/Members/Authenticated/Bank/Balances/');
              Response.LoadFromStream(HTTP.Document);
              CurrentPars[7] := Trim(Pars('<span id="ctl00_main_ctl00_divPSTotal" class="col4">', Response.Text, '<'));

              if (Pos('.', CurrentPars[7]) <> 0) or (Pos('0', Response.Text) <> 0) then
                Rez := 1;

              HTTP.Headers.Clear;
              HTTP.Document.Clear;

              HTTP.Headers.Insert(0, 'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8');
              HTTP.Headers.Insert(1, 'Referer: https://members.bet365.com/members/services/host/?microsite=notifications&displaymode=desktop');
              HTTP.Headers.Insert(2, 'Accept-Language: en-EN,en;q=0.9,en-US;q=0.8,en;q=0.7');

              HTTP.HTTPMethod('GET', 'https://members.bet365.com/Members/Authenticated/Account/PostalVerification/');
              Response.LoadFromStream(HTTP.Document);

              CurrentPars[8] := 'No Verif';
              if Pos('<a id="ctl00_main_postalVerification_pvc1_lkSbmt" tabindex="3" class="btn submit"', Response.Text) = 0 then
                CurrentPars[8] := 'Verif';
            end
            else
            begin
              Rez := 2;
            end;
          end
          else
            Rez := 0;