Потоки в таймере

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
 
TNewThread1 = class(TThread)
  private
    { Private declarations }
  protected
     procedure DoWork;
    procedure Execute; override;
  end;
 
TNewThread2 = class(TThread)
  private
    { Private declarations }
  protected
     procedure DoWork;
    procedure Execute; override;
  end;
 
  TForm1 = class(TForm)
    Button1: TButton;
    CheckBox1: TCheckBox;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TNewThread1.Execute;
begin
   while not Terminated do
    begin
     Synchronize(DoWork);
     sleep(1000);
    end;
end;
 
 procedure TNewThread1.DoWork;
 begin
    Form1.Memo1.Lines.Add('Thread First');
 end;
 
procedure TNewThread2.Execute;
begin
   while not Terminated do
    begin
     Synchronize(DoWork);
     sleep(1000);
    end;
end;
 
 procedure TNewThread2.DoWork;
 begin
    Form1.Memo2.Lines.Add('Thread Second');
 end;
 
procedure TForm1.CheckBox1Click(Sender: TObject);
var
  NewThread1: TNewThread1;
  NewThread2: TNewThread2;
begin
  if CheckBox1.Checked then
    begin
      NewThread1:=TNewThread1.Create(true);
      NewThread2:=TNewThread2.Create(true);
      NewThread1.FreeOnTerminate:=true;
      NewThread2.FreeOnTerminate:=true;
      NewThread1.Priority:=tpLower;
      NewThread2.Priority:=tpLower;
      NewThread1.Resume;
      NewThread2.Resume;
    end
  else
    begin
      NewThread1.Terminate;
      NewThread2.Terminate;
    end;
 
end;
 
end.

   
{ этот цикл корректен с т.з. выбранного принципа синхронизации
  но абсолютно бестолков с т.з. цели использования доп.потока - РАСПАРАЛЛЕЛИВАНИЯ вычислений }
while not Terminated do
    begin
     Synchronize(DoWork);
     sleep(1000); // бестолковое действо... если нужно снизить нагрузку потока на CPU, то целесообразнее вызывать SwitchToThread
    end;

TNewThread1 = class(TThread)
  private
    { Private declarations }
  protected
     procedure DoWork;
    procedure Execute; override;
  end;
 
TNewThread2 = class(TThread)
  private
    { Private declarations }
  protected
     procedure DoWork;
    procedure Execute; override;
  end;