Авторизация на сайте заданное количество раз

[artbotva]

Всем доброго времени!
Подскажите как можно сделать так чтобы авторизация на сайте происходила, столько раз сколько написано в едите? Сразу скажу это не ддос
Вот сам код

 procedure TForm1.Button1Click(Sender: TObject);
var
LoginData, Response: TStrings;
begin
LoginData := TStringList.Create;
Response := TStringList.Create;
try
LoginData.Add('login_name='+Edit1.Text);
LoginData.Add('login_password='+Edit2.Text);
LoginData.Add('login=submit');
LoginData.Add('x=0');
LoginData.Add('y=0');
Response.Text := IdHTTP1.Post('http://www.ntvplus.ru/login-page.xl',LoginData); 
if Pos('logout',Response.Text)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
finally
LoginData.Free;
end;
end;

[Sciv]

For i:=1 to StrToInt(Edit3.Text) do
  try
    ...
  end;
end;

не?

[artbotva]

Сообщение от Sciv

For i:=1 to StrToInt(Edit3.Text) do
  try
    ...
  end;
end;

не?

Можно поподробнее, что куда вставляется?
Заранее спасибо

[Sciv]

Сообщение от artbotva

Можно поподробнее, что куда вставляется?
Заранее спасибо

Ваш код начиная с try и заканчивая end вставляется в этот цикл. n =количество раз, определяется через n:=StrToInt(Edit.Text), где Edit -тот компонент, в котором Вы это количество и задаете.

[artbotva]

Сообщение от Sciv

Ваш код начиная с try и заканчивая end вставляется в этот цикл. n =количество раз, определяется через n:=StrToInt(Edit.Text), где Edit -тот компонент, в котором Вы это количество и задаете.

Спасибо за ответ
А в переменных это писать**i : Integer; ?

А можно ли под это дело подстроить прогрессбар? Если да то каким способом?)

[Sciv]

В переменных i - писать.
Прогресс можно рисовать так: вычисляем "шаг шагания", как говорил наш преподаватель и увеличиваем свойство Position на него на каждой итерации цикла:

pr:=100 div n;
ProgrssBar.Progress:=0;
for i:=1 to n do begin
  try
    ..
  end;
  ProgressBar1.Progress:=ProgressBar1.Progress+pr;
end;
ProgressBar1.Progress:=100;