Одновременное выполнение потоков

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Unit2, Unit3, Unit4, ComCtrls;
 
type
    Tarray= Array of Integer;
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    Memo3: TMemo;
    Memo2: TMemo;
    Memo4: TMemo;
    ProgressBar1: TProgressBar;
    ProgressBar2: TProgressBar;
 
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   Progress, i: integer;
    m: integer;
    A:Tarray;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
Var S1:TSort1; S2:TSort2; S3:Tsort3;
begin
 
  Memo2.Lines.Clear;
  Memo4.Lines.Clear;
  Memo3.Lines.Clear;
  S1:=TSort1.Create(False);
  for i:=0 to m-1 do
      Memo2.Lines.Add(IntToStr(A[i])); //быстрая
  //S2:=TSort2.Create(False);
  //for i:=0 to m-1 do
  //Memo3.Lines.Add(IntToStr(A[i]));
  S3:=TSort3.Create(False);
  for i:=0 to m-1 do
      Memo4.Lines.Add(IntToStr(A[i]));//пузырьковая
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
  m := StrToInt(Edit1.Text);
  SetLength(A, m);
  for i:=0 to m-1 do
    A[i] := random(100);
    for i:=0 to length(A)-1 do
      Memo1.Lines.Add(IntToStr(A[i]));
end;
 
end.

unit Unit2;
 
interface
 
uses
  Classes;
 
type
  TSort1 = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
    public
      Progress:Integer;
  end;
 
implementation
uses Unit1;
{ Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,
 
      Synchronize(UpdateCaption);
 
  and UpdateCaption could look like,
 
    procedure TSort1.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }
 
{ TSort1 }
 
 
procedure TSort1.Execute;
var i,j,n: Integer;
    x: Integer;
begin
n:=length(A);
  for I := 1 to n - 1 do
    for j := 1 to n - 1 do
      if a[j] > a[j+1] then
 
        begin
          x := a[j+1];
          a[j+1] := a[j];
          a[j] := x;
        end;
 
      Progress:=i;
     Form1.ProgressBar1.Position:=Progress;
end;
end.

unit Unit4;
 
interface
 
uses
  Classes;
 
type
  TSort3 = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
     public
      Progress:Integer;
  end;
 
implementation
   uses Unit1;
{ Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,
 
      Synchronize(UpdateCaption);
 
  and UpdateCaption could look like,
 
    procedure TSort3.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }
 
{ TSort3 }
 
 
procedure TSort3.Execute;//пузырьковая
var i,j,n: Integer;
    x: Integer;
begin
n:=length(A);
  for I := 0 to n-2 do
    for j := i+1 to n-1 do
 
      if a[i] > a[j] then
        begin
          x := a[j];
          a[j] := a[i];
          a[i] := x;
        end;
 
      Progress:=i;
      Form1.ProgressBar2.Position:=Progress;
 
end;
 
end.

Form1.ProgressBar2.Position:=Progress;