Пауза в потоке

[_ZixeL_]

Доброго времени суток всем. Ломаю голову, и понять ничего не могу.
Не работает пауза в потоке.

Создаю потоки так:

var
  TH1:TMyThread;

...


procedure TForm1.Button2Click(Sender: TObject);
begin

 Acc:=-1;
    Work:=true;
       for Thread:=1 to Form3.SpinEdit1.Value do
       begin
         TH1:=TMyThread.Create(true);
         TH1.FreeOnTerminate:=true;
         TH1.Priority:=tplower;
         TH1.Resume;
       end;

        Thread:=Form3.SpinEdit1.Value;

   end;
end;

Но пауза не работает:

TH1.Suspend;

В чём может быть проблема?
Заранее спасибо.

[_ZixeL_]

В самом потоке выполняю код так:

procedure TMyThread.Execute;
var CurAcc, b:integer;
begin

 while Work do
  begin
   CS.Enter;
   Inc(Acc);
   if Acc<Accounts.Count then CurAcc:=Acc else Work:=false;
   CS.Leave;

   if Work then
    begin

     FAcc:= Copy(Accounts[CurAcc],1,Pos(';',Accounts[CurAcc])-1);
     FPas:= Copy(Accounts[CurAcc],Pos(';',Accounts[CurAcc])+1,Length(Accounts[CurAcc]));

     <<<ТУТ КОД >>>     

     Synchronize(Sync);
    end;
  end;

 dec(Thread);

 if Thread=0 then
  begin
   ShowMessage('OK');
  end;
end;

Всё работает нормально, кроме паузы(

[FleXik]

Кидаете в procedure Поток.Execute;

begin
if not Suspended then
begin
//код

[FleXik]

А на кнопку Стоп кидаете это

Поток.Suspend;

[dmitriegorovih]

Всё работает нормально, кроме паузы(

Все правильно кроме того что надо использовать массив потоков
а не один экземпляр
Примерно как-то так

var
TH1:array [1..10] of TMyThread;
...
for l:=1 to 2 do begin
TH1[l]:=TMyThread.Create(true);
         TH1[l].FreeOnTerminate:=true;
         TH1[l].Priority:=tplower;
         TH1[l].Resume;
         end;

А на паузу ставить все как-то так

for l:=1 to 2 do begin
TH1[l].Suspend;
end;

[_ZixeL_]

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

Кидаете в procedure Поток.Execute;

begin
if not Suspended then
begin
//код

Не помогло.

[Человек_Борща]

Потому что у вас потоков N а переменная TH всего одна.
Изучайте TThreadList

[_ZixeL_]

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

Все правильно кроме того что надо использовать массив потоков
а не один экземпляр
Примерно как-то так

var
TH1:array [1..10] of TMyThread;
...
for l:=1 to 2 do begin
TH1[l]:=TMyThread.Create(true);
         TH1[l].FreeOnTerminate:=true;
         TH1[l].Priority:=tplower;
         TH1[l].Resume;
         end;

А на паузу ставить все как-то так

for l:=1 to 2 do begin
TH1[l].Suspend;
end;

А вот это помогло. Спасибо

[_ZixeL_]

Сообщение от Человек_Борща

Потому что у вас потоков N а переменная TH всего одна.
Изучайте TThreadList

Спасибо, буду учить.

[_ZixeL_]

А вот еще вопросик. Может кто поможет.

"Пауза" и "продолжить" работает нормально, до поры пока потоков не станет меньше.

Тоесть, паузу ставлю так, как советовали:

    for Thread:=1 to 50 do
     begin
      TH1[Thread].suspend;
     end;

Но, когда уже работа потоков подходит к концу, и они завершаются, то данный код не работает. Ошибка "Неверный дескриптор(6)".
Как быть в такой ситуации? Как знать кол-во работающих потоков? Спасибо.