Задача выполняется долго на одном ядре процессора - можно ли ее распараллелить

unit MainUnit;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, TabNotBk, StdCtrls, TeeProcs, TeEngine,
  Chart, Series, Buttons, SyncObjs;
 
Const
 MaxColBars = 1000000;
 MaxColSD = 100000;
 MaxAv      = 255;
 
Type
  BarType=Array[1..MaxColBars] of Word;
  AVT=Array[1..MaxColBars] of Single;
  BallType=Array[1..MaxColSD] of Longint;
  RezType=array[1..6] of BallType;
  AvType=array[1..MaxAv] of AVT;
 
type
  TFX = class(TForm)
    TabbedNotebook1: TTabbedNotebook;
....
 
 
// глобальные переменные 
var
  FX                              : TFX;
  CS                              : TCriticalSection;
  MaxNumThreads           : Byte;
  FThreadRefCount            : Word;
...
 
 
implementation
 
{$R *.dfm}
 
// функция - поток
procedure ThreadFunc;
Var
...
begin
  CS.Enter;
// Считывание некоторых глобальные переменных в локальные
...
  CS.Leave;
 
// Вычисления
 
  CS.Enter;
// Чтение и/или запись в глобальные массивы
...
  CS.Leave;
 
 
  CS.Enter;
  Dec(FThreadRefCount);                                       
  FX.Caption:=IntToStr(FThreadRefCount)+' нитей';  
  CS.Leave;
  endthread(0);
end;
 
procedure TFX.FormCreate(Sender: TObject);
begin
  FThreadRefCount:=0;
  CS:=TCriticalSection.Create;
end;
 
procedure TFX.FormDestroy(Sender: TObject);
begin
  CS.Free;
end;
 
 
 
 
// Вызов нитей в количестве не больше MaxNumThreads           
 
procedure TFX.SuperButtonClick(Sender: TObject);
Var
...
  tid1, id                  : LongWord;
begin
 
  KolVars:=(Av1_k-Av1_n + 1) * (Av2_k-Av2_n + 1) * (Av3_k-Av3_n + 1) * (Av4_k-Av4_n + 1);
 
  ProgressBar1.Min:=1;
  ProgressBar1.Max:=KolVars;
  ProgressBar1.Position:=ProgressBar1.Min;
 
...
 
  Av1:=Av1_n-1;
  while Av1<Av1_k do Begin
    inc(Av1);
    Av2:=Av2_n-1;
    while Av2<Av2_k do Begin
      inc(Av2);
      Av3:=Av3_n-1;
      while Av3<Av3_k do Begin
        inc(Av3);
        Av4:=Av4_n-1;
        while Av4<Av4_k do Begin
          inc(Av4);
          if (Av1<>Av2) and (Av1<>Av3) and (Av1<>Av4) and (Av2<>Av3) and (Av2<>Av4) and (Av3<>Av4) then Begin
 
                while FThreadRefCount>=MaxNumThreads do Application.ProcessMessages;
 
                if FThreadRefCount<MaxNumThreads then Begin
 
                  tid1:=beginthread(nil,0,Addr(ThreadFunc),nil,0,id);
                  if tid1<>0 then CloseHandle(tid1);
                  Inc(FThreadRefCount);
                  FX.Caption:='IntToStr(FThreadRefCount)+' нитей';
 
                end;
 
                ProgressBar1.Position:=ProgressBar1.Position+1;
          end;
        end;
      end;
    end;
  end;
end;

unit MainUnit;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, TabNotBk, StdCtrls, TeeProcs, TeEngine,
  Chart, Series, Buttons, SyncObjs;
 
Const
 MaxColBars = 1000000;
 MaxColSD = 100000;
 MaxAv      = 255;
 
Type
  BarType=Array[1..MaxColBars] of Word;
  AVT=Array[1..MaxColBars] of Single;
  BallType=Array[1..MaxColSD] of Longint;
  RezType=array[1..6] of BallType;
  AvType=array[1..MaxAv] of AVT;
 
type
  TFX = class(TForm)
    TabbedNotebook1: TTabbedNotebook;
....
 
 
// глобальные переменные 
var
  FX                              : TFX;
  CS                              : TCriticalSection;
  MaxNumThreads           : Byte;
  FThreadRefCount            : Word;
...
 
 
implementation
 
{$R *.dfm}
 
// функция - поток
procedure ThreadFunc;
Var
...
begin
  CS.Enter;
// Считывание некоторых глобальные переменных в локальные
...
  CS.Leave;
 
// Вычисления
 
  CS.Enter;
// Чтение и/или запись в глобальные массивы
...
  CS.Leave;
 
 
  CS.Enter;
  Dec(FThreadRefCount);                                       
  FX.Caption:=IntToStr(FThreadRefCount)+' нитей';  
  CS.Leave;
  endthread(0);
end;
 
procedure TFX.FormCreate(Sender: TObject);
begin
  FThreadRefCount:=0;
  CS:=TCriticalSection.Create;
end;
 
procedure TFX.FormDestroy(Sender: TObject);
begin
  CS.Free;
end;
 
 
 
 
// Вызов нитей в количестве не больше MaxNumThreads           
 
procedure TFX.SuperButtonClick(Sender: TObject);
Var
...
  tid1, id                  : LongWord;
begin
 
  KolVars:=(Av1_k-Av1_n + 1) * (Av2_k-Av2_n + 1) * (Av3_k-Av3_n + 1) * (Av4_k-Av4_n + 1);
 
  ProgressBar1.Min:=1;
  ProgressBar1.Max:=KolVars;
  ProgressBar1.Position:=ProgressBar1.Min;
 
...
 
  Av1:=Av1_n-1;
  while Av1<Av1_k do Begin
    inc(Av1);
    Av2:=Av2_n-1;
    while Av2<Av2_k do Begin
      inc(Av2);
      Av3:=Av3_n-1;
      while Av3<Av3_k do Begin
        inc(Av3);
        Av4:=Av4_n-1;
        while Av4<Av4_k do Begin
          inc(Av4);
          if (Av1<>Av2) and (Av1<>Av3) and (Av1<>Av4) and (Av2<>Av3) and (Av2<>Av4) and (Av3<>Av4) then Begin
 
                while FThreadRefCount>=MaxNumThreads do Application.ProcessMessages;
 
                if FThreadRefCount<MaxNumThreads then Begin
 
                  tid1:=beginthread(nil,0,Addr(ThreadFunc),nil,0,id);
                  if tid1<>0 then CloseHandle(tid1);
                  Inc(FThreadRefCount);
                  FX.Caption:='IntToStr(FThreadRefCount)+' нитей';
 
                end;
 
                ProgressBar1.Position:=ProgressBar1.Position+1;
          end;
        end;
      end;
    end;
  end;
end;

unit MainUnit;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, TabNotBk, StdCtrls, TeeProcs, TeEngine,
  Chart, Series, Buttons, SyncObjs;
 
Const
 MaxColBars = 1000000;
 MaxColSD = 100000;
 MaxAv      = 255;
 
Type
  BarType=Array[1..MaxColBars] of Word;
  AVT=Array[1..MaxColBars] of Single;
  BallType=Array[1..MaxColSD] of Longint;
  RezType=array[1..6] of BallType;
  AvType=array[1..MaxAv] of AVT;
 
type
  TFX = class(TForm)
    TabbedNotebook1: TTabbedNotebook;
....
 
 
// глобальные переменные 
var
  FX                              : TFX;
  CS                              : TCriticalSection;
  MaxNumThreads, FThreadRefCount  : Byte;
  Bar                             : BarType;
...
 
 
implementation
 
{$R *.dfm}
 
// функция - поток
procedure ThreadFunc;
Var
  FBar                              : BarType;
...
begin
  CS.Enter;
  FBar:=Bar;    // <-- этот код вызывает Access Violation, что с применением крит. секции, что без нее
  CS.Leave;
 
 
  CS.Enter;                                          // этот код выполняется без проблем
  Dec(FThreadRefCount);                                         
  FX.Caption:=IntToStr(FThreadRefCount)+' нитей';   
  CS.Leave;
  endthread(0);
end;
 
procedure TFX.FormCreate(Sender: TObject);
begin
  FThreadRefCount:=0;
  CS:=TCriticalSection.Create;
end;
 
procedure TFX.FormDestroy(Sender: TObject);
begin
  CS.Free;
end;
 
 
 
 
// Вызов нитей в количестве не больше MaxNumThreads           
 
procedure TFX.SuperButtonClick(Sender: TObject);
Var
...
  tid1, id                  : LongWord;
begin
 
  KolVars:=(Av1_k-Av1_n + 1) * (Av2_k-Av2_n + 1) * (Av3_k-Av3_n + 1) * (Av4_k-Av4_n + 1);
 
  ProgressBar1.Min:=1;
  ProgressBar1.Max:=KolVars;
  ProgressBar1.Position:=ProgressBar1.Min;
 
...
 
  Av1:=Av1_n-1;
  while Av1<Av1_k do Begin
    inc(Av1);
    Av2:=Av2_n-1;
    while Av2<Av2_k do Begin
      inc(Av2);
      Av3:=Av3_n-1;
      while Av3<Av3_k do Begin
        inc(Av3);
        Av4:=Av4_n-1;
        while Av4<Av4_k do Begin
          inc(Av4);
          if (Av1<>Av2) and (Av1<>Av3) and (Av1<>Av4) and (Av2<>Av3) and (Av2<>Av4) and (Av3<>Av4) then Begin
 
                while FThreadRefCount>=MaxNumThreads do Application.ProcessMessages;
 
                if FThreadRefCount<MaxNumThreads then Begin
 
                  tid1:=beginthread(nil,0,Addr(ThreadFunc),nil,0,id);
                  if tid1<>0 then CloseHandle(tid1);
                  Inc(FThreadRefCount);
                  FX.Caption:='IntToStr(FThreadRefCount)+' нитей';
 
                end;
 
          end;
 
                ProgressBar1.Position:=ProgressBar1.Position+1;
        end;
      end;
    end;
  end;
end;

 CS.Enter;
 Dec(FThreadRefCount);                                         
 CS.Leave;