[Помогите!] Потоки не запускаются

[Роспотребнадзор]

Здравствуйте
пишу многопоточный чекер, с авторизаицей и куками все гуд, но потоки запускаться не хотят.

  procedure sButton1Click(Sender: TObject);
    procedure sMemo1Change(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

//Здесь необходимо описать класс TMyThread:
  TMyThread = class(TThread)
    private
    { Private declarations }
  protected
  procedure update;
    procedure Execute; override;
end;

var
  Form2: TForm2;
  i,l,vsego,proideno,good:Integer;
  MyThread: TMyThread;

implementation

{$R *.dfm}


procedure TForm2.sButton1Click(Sender: TObject);
var
 i,l:Integer;
 email,pass,s1,s2:string;
Data:tStringlist;

begin
i:=0;
proideno:=0;
vsego:=smemo1.Lines.Count;
good:=0;
for i:=0 to updown1.position do
MyThread:=TMyThread.Create(true);// создаю поток 
MyThread.FreeOnTerminate:=false;// не самоуничтожится после выполнения кода
MyThread.Resume; // запускаю поток
end;

procedure TMyThread.Execute;
var
    i,l,vsego,proideno:Integer;
    email,pass,s1,s2:string;
  Data:tStringlist;
  idHTTP1:tIdHTTP;
begin
form2.idHTTP1:=TIdHTTP.Create(nil);
... настройка http...
while proideno< vsego do begin
data:=TStringList.Create;
data.Clear;
data.add('name='+email);
data.add('pass='+pass);
data.add('op=%D0%92%D1%85%D0%BE%D0%B4+%D0%B2+%D1%81%D0%B8%D1%81%D1%82%D0%B5%D0%BC%D1%83');
data.add('form_build_id=form-6d1652dd1259cd84e60af5e57ee4f61f');
data.add('form_id=user_login' );
inc (proideno);
l:=proideno;
email:='';
pass:='';
email:=trim(copy(Form2.smemo1.Lines[l],1,pos(';',Form2.smemo1.Lines[l])-1));
pass:=trim(copy(Form2.smemo1.Lines[l],pos(';',Form2.smemo1.Lines[l])+1,length(Form2.smemo1.Lines[l])-pos(';',Form2.smemo1.Lines[l])+1));
s2:=Form2.idhttp1.get ('сайт');
s1:=Form2.idhttp1.post ('сайт',data);
 synchronize(update);
end;
end;

procedure tMyThread.update;
var
    i,l,ready:Integer;
    email,pass,s1,s2:string;
  Data:tStringlist;
begin
if pos ('Время ',s1)>0 then  begin
Form2.smemo2.lines.add (Form2.smemo1.lines[l]);
end;
end;

Уже вторые сутки не могу уснуть спокойно . Надеюсь на вашу помощь

[Skrillex3]

Цитата: for i:=0 to updown1.position do begin MyThread:=TMyThread.Create(true);// создаю поток MyThread.FreeOnTerminate:=false;// не самоуничтожится после выполнения кода MyThread.Resume; // запускаю поток end;

поток создаёшь , но ничего с ним не делаешь