Многопоток - Ошибка

[TEED!]

Есть отрывок из кода кнопки каторая запускает многопоточный брут:

procedure TForm1.Button3Click(Sender: TObject);
begin
tp:=-1; //Начинаем с первого прокси, ставим -1 т.к. будет inc() в начале
work:=true; //Включаем цикл
 for Thread:=1 to strtoint(sEdit1.Text) do
 begin
  Thread.Create(false);
 Thread:=strtoint(form1.sEdit1.Text);
  end;
end;

Компилятор ругается на строчку:

 for Thread:=1 to strtoint(sEdit1.Text) do

А если быть точнее на слово:

Thread:=1

С ошибкой:

[DCC Error] Unit1.pas(191): E1019 For loop control variable must be simple local variable

Что я не так делаю?!

[BDA]

Какого типа Thread?
Если судить по строчке Thread.Create(false), то это вообще класс потока

[TEED!]

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

Какого типа Thread?
Если судить по строчке Thread.Create(false), то это вообще класс потока

Thread=class(TThread)

[Mifody]

Вообщет, по пунктам где ошибки

procedure TForm1.Button3Click(Sender: TObject);
begin
tp:=-1; //Начинаем с первого прокси, ставим -1 т.к. будет inc() в начале
work:=true; 
 for Thread:=1 to strtoint(sEdit1.Text) do  // п.1
 begin
  Thread.Create(false); // п.2
 Thread:=strtoint(form1.sEdit1.Text); // п.3
  end;
end;

ну и я так понимаю Ваши объявления

 type Thread = class(TThread)
...
tp: integer;

п.1 - эт че? сравнивание целого с типом Thread????
п.2 - куда создаем, зачем создаем - непонятно
п.3 - ну это вообще супер, объявлению типа присваиваем целое число

без обид - но Вам надо почитать основы по работе с классами

[TEED!]

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

Вообщет, по пунктам где ошибки

procedure TForm1.Button3Click(Sender: TObject);
begin
tp:=-1; //Начинаем с первого прокси, ставим -1 т.к. будет inc() в начале
work:=true; 
 for Thread:=1 to strtoint(sEdit1.Text) do  // п.1
 begin
  Thread.Create(false); // п.2
 Thread:=strtoint(form1.sEdit1.Text); // п.3
  end;
end;

ну и я так понимаю Ваши объявления

 type Thread = class(TThread)
...
tp: integer;

п.1 - эт че? сравнивание целого с типом Thread????
п.2 - куда создаем, зачем создаем - непонятно
п.3 - ну это вообще супер, объявлению типа присваиваем целое число

без обид - но Вам надо почитать основы по работе с классами

п1,п2,п2 Ответ:
Попробывал вот так :

procedure TForm1.Button3Click(Sender: TObject);
var
i: integer;
begin
tp := -1; // Начинаем с первого прокси, ставим -1 т.к. будет inc() в начале
work := true; // Включаем цикл
for i := 1 to StrToInt(sEdit1.Text) do
Thread.Create(false);
end;

Но он неотправляет запросы тогда.

[Stilet]

неотправляет запросы

Какие запросы?

Попробывал вот так :

Думаю так лучше:

procedure TForm1.Button3Click(Sender: TObject);
var
i: integer;
begin
tp := -1; // Начинаем с первого прокси, ставим -1 т.к. будет inc() в начале
work := true; // Включаем цикл
for i := 1 to StrToInt(sEdit1.Text) do
 with Thread.Create(true) do begin
  FreeOnTerminate:=true;
  Resume;
 end;
end;

[TEED!]

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

Какие запросы?

Думаю так лучше:

procedure TForm1.Button3Click(Sender: TObject);
var
i: integer;
begin
tp := -1; // Начинаем с первого прокси, ставим -1 т.к. будет inc() в начале
work := true; // Включаем цикл
for i := 1 to StrToInt(sEdit1.Text) do
 with Thread.Create(true) do begin
  FreeOnTerminate:=true;
  Resume;
 end;
end;

пост-запросы для отправки на сайт(брут же )!

[Stilet]

А зачем несколько потоков?
И вообще-то нужно видеть твою реализацию потока.

[TEED!]

Уже все зделал !