Можно ли и как запустить в программе, написанной на Delphi 7, 12 разных циклов одновременно?

TMyThread=class(TThread)
  ID:integer;
end;
 
for i:=0 to 99 do
begin
  th:=TMyThread.Create(TRUE);
  th.ID:=i;
end;

 MThread:= TmThread.Create;
 MThread.PotokID1 := 1;
 MThread.Priority := tpLowest;
 MThread.Resume;
  MThread:= TmThread.Create;
  MThread.PotokID2 := 1;
  MThread.Priority := tpLowest;
  MThread.Resume;

for ti:=1 to 2 do
begin
  MThread := TmThread.Create;
  MThread.PotokID := ti;
  MThread.Priority := tpLowest;
  MThread.Resume;
end;

if (Length(code) > 0)

unit UThr;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type TMyThread=class(TThread)
   private
     { Private declarations }
   protected
   procedure Execute; override;
   public
   startvalue:integer;  // начальное значение суммирования
   stopvalue:integer;   // конечное значение суммирования
   sum:integer;         // сумма-результат потока
   end;
 
 
type
  TForm16 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  Th:array [0..10] of TMyThread; // 11 потоков
  xsum:integer;                  // Общая сумма всех потоков
  end;
 
var
  Form16: TForm16;
 
implementation
 
{$R *.dfm}
 
procedure TMyThread.Execute;
var i:integer;
begin
sum:=0; // сумма потока
for i:=startvalue to stopvalue do sum:=sum+i; // Поток работает и считает от своего начального значения до конечного
Form16.xsum:=Form16.xsum+sum; // Добавляет в общую сумму
Terminate; // Завершение потока
end;
 
procedure TForm16.Button1Click(Sender: TObject);
var i,k:integer;
begin
for i:=0 to 10 do
   begin
   Th[i]:=TMyThread.Create(True);   // Создание 11 потоков
   Th[i].FreeOnTerminate:=True;
   Th[i].startvalue:=i*1000;        // Распределение начальной и конечной
   Th[i].stopvalue:=i*1000+1000-1;  // сумм по потокам
   end;
xsum:=0; // Общая сумма=0
for i:=0 to 10 do Th[i].Start; // Запуск 11 потоков
 
// Проверка, чтобы все потоки завершились
repeat
   begin
   k:=0;
   for i:=0 to 10 do if Th[i].Terminated=True then inc(k);
   end;
until (k=11);
///------Потоки завершились
Button1.Caption:=IntToStr(xsum);
end;
 
end.

TmThread= class(TThread)

var
  Form1: TForm1;
  code: string;

codeResult := code1 + code2;

if Tеrminated then Break;

// Проверка, чтобы все потоки завершились
repeat
   begin
   k:=0;
   for i:=0 to 10 do if Th[i].Terminated=True then inc(k);
   end;
until (k=11);

unit UThr;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type TMyThread=class(TThread)
   private
     { Private declarations }
   protected
   procedure Execute; override;
   public
   startvalue:integer;  // начальное значение суммирования
   stopvalue:integer;   // конечное значение суммирования
   sum:integer;         // сумма-результат потока
   end;
 
 
type
  TForm16 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  Th:array [0..10] of TMyThread; // 11 потоков
  xsum:integer;                  // Общая сумма всех потоков
  tc:integer;
  procedure OnTerm(Sender:TObject);
  end;
 
var
  Form16: TForm16;
 
implementation
 
{$R *.dfm}
 
procedure TMyThread.Execute;
var i:integer;
begin
sum:=0; // сумма потока
for i:=startvalue to stopvalue do sum:=sum+i; // Поток работает и считает от своего начального значения до конечного
//Terminate; // Завершение потока
end;
 
procedure TForm16.OnTerm(Sender: TObject);
begin
inc(tc);
xsum:=xsum+(Sender as TMyThread).sum; // Добавляет в общую сумму
end;
 
procedure TForm16.Button1Click(Sender: TObject);
var i,k:integer;
begin
for i:=0 to 10 do
   begin
   Th[i]:=TMyThread.Create(True);   // Создание 11 потоков
   Th[i].FreeOnTerminate:=True;
   Th[i].OnTerminate:=OnTerm;
   Th[i].startvalue:=i*1000;        // Распределение начальной и конечной
   Th[i].stopvalue:=i*1000+1000-1;  // сумм по потокам
   end;
xsum:=0; // Общая сумма=0
tc:=0;
for i:=0 to 10 do Th[i].Start; // Запуск 11 потоков
 
while (tc<>11) do Application.ProcessMessages;
///------Потоки завершились
Button1.Caption:=IntToStr(xsum);
end;
 
end.

while (tc<>11) do ;

j := RandomRange(0, 255);