Объяснить работу программы с потоками

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells[0,0]:= 'A';
  StringGrid1.Cells[0,1]:= 'B';
  StringGrid2.Cells[0,0]:= 'C';
  StringGrid3.Cells[0,0]:= 'D';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 
var
  A,B,C,D: Array[1..10] of ShortInt;
  i: ShortInt;
 
  StartValue, EndValue, Freq: Int64;
  sD, sA: Double;
 
  PriorityClass, Priority: Integer;
  // PriorityClass - приоритет класса.
  // Priority - приоритет потока
 
  PAM, SAM, PAMR, PAML, PAM1: Cardinal;
  // PAM - битовая маска, где каждый бит обозначает ядро,
  // на котором разрешается запуск процесса.
  // SAM - битовая маска, где каждый бит обозначает ядро, которое
  // сконфигурировано в систему.
 
  mask: array[1..4] of Cardinal; // Битовые маски, задающие одно ядро
 
begin
  PriorityClass:= GetPriorityClass(GetCurrentProcess); //Текущий приоритет класса
  Priority:= GetThreadPriority(GetCurrentThread); //Текущий приоритет потока
  GetProcessAffinityMask(GetCurrentProcess, PAM, SAM); //Текущая маска PAM
 
  mask[1]:= 1; // Битовая маска 0001 первого ядра
  mask[2]:= 2; // Битовая маска 0010 второго ядра
  mask[3]:= 4; // Битовая маска 0100 третьего ядра
  mask[4]:= 8; // Битовая маска 1000 четвертого ядра
  PAML:= PAM;
  i:= 1;
  while PAML=PAM do
  begin
    PAMR:= PAM shr i;
    PAML:= PAMR shl i;
    if PAML<>PAM then PAM1:= mask[i];
    Inc(i);
  end;
  SetThreadAffinityMask(GetCurrentThread, PAM1); //Работа на одном ядре
 
  for i:=1 to 10 do
  begin
    A[i]:= StrToInt(StringGrid1.Cells[i,0]);
    B[i]:= StrToInt(StringGrid1.Cells[i,1]);
  end;
 
  SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS); //Новый приоритет класса
  SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL); //Новый приоритет потока
  QueryPerformanceCounter(StartValue);
  for i:=1 to 10 do
  begin
    C[i]:= B[i] shr 2;
    C[i]:= (87*B[i] + 14) div (A[i] - C[i]);
  end;
  QueryPerformanceCounter(EndValue);
  QueryPerformanceFrequency(Freq);
  SetThreadPriority(GetCurrentThread, Priority); //Восстановление приоритета потока
  SetPriorityClass(GetCurrentProcess, PriorityClass); //Восстановление приоритета класса
  Edit3.Text:= IntToStr(EndValue - StartValue);
  sD:= (EndValue - StartValue)/Freq;
  Form1.Edit1.Text:= FloatToStrF(sD, ffFixed, 10, 9);
    
  for i:=1 to 10 do
  StringGrid2.Cells[i,0]:= IntToStr(C[i]);
 
  SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS); //Новый приоритет класса
  SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL); //Новый приоритет потока
  QueryPerformanceCounter(StartValue);
  asm
       MOV ECX, 10
       XOR ESI, ESI
@M1:   MOV AL, 87
       IMUL BYTE PTR B[ESI]
       ADD AX, 14
       MOV BL, BYTE PTR B[ESI]
       SAR BL, 2
       SUB BL, BYTE PTR A[ESI]
       NEG BL
       IDIV BL
       MOV BYTE PTR D[ESI], AL
       INC ESI
       LOOP @M1
  end;
  QueryPerformanceCounter(EndValue);
  QueryPerformanceFrequency(Freq);
  SetThreadPriority(GetCurrentThread, Priority); //Восстановление приоритета потока
  SetPriorityClass(GetCurrentProcess, PriorityClass); //Восстановление приоритета класса
  Form1.Edit4.Text:= IntToStr(EndValue - StartValue);
  sA:= (EndValue - StartValue)/Freq;
  Form1.Edit2.Text:= FloatToStrF(sA, ffFixed, 10, 9);
 
  for i:=1 to 10 do
  Form1.StringGrid3.Cells[i,0]:= IntToStr(D[i]);
 
  SetThreadAffinityMask(GetCurrentThread, PAM); // Восстановление количества ядер
 
end;
 
 
end.