unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, wcthread, StdCtrls;

type
  TfrmWCThreadDemo = class(TForm)
    Memo1: TMemo;
    butDemoTimer: TButton;
    WCThread1: TWCThread;
    TaskDemoTimer: TTask;
    procedure FormDestroy(Sender: TObject);
    procedure TaskDemoTimerExecute(Sender: TTask);
    procedure TaskDemoTimerFinished(Sender: TTask);
    procedure TaskDemoTimerProgress(Sender: TTask; const Value: Word);
    procedure butDemoTimerClick(Sender: TObject);
  private
  public
    procedure AddLog(const Text: string);
  end;

var
  frmWCThreadDemo: TfrmWCThreadDemo;

implementation

{$R *.dfm}

procedure TfrmWCThreadDemo.TaskDemoTimerExecute(Sender: TTask);
var i: integer;
begin
    // этот метод выполняется в другом потоке, в это время форму можно таскать и ничего не тормозит
    for I := 0 to Sender.Param-1 do begin
        // проверка на то, что поток еще выполняется
        if Sender.Terminated then exit;
        Sleep(1000);
        // сообщаем о прогрессе основной форме
        Sender.PostProgress(i+1);
    end;
end;

procedure TfrmWCThreadDemo.FormDestroy(Sender: TObject);
begin
    // обязательное условие, ожидание окончания работы задачи на случай закрытия формы при выполняющейся задаче
    WCThread1.FinishAllTasks;
end;

procedure TfrmWCThreadDemo.AddLog(const Text: string);
begin
    // добавляет сообщение в лог
    Memo1.Lines.Add(Format('%s : %s', [FormatDateTime('hh:nn:ss.zzz', Now), Text]));
end;

procedure TfrmWCThreadDemo.butDemoTimerClick(Sender: TObject);
begin
    // так запускается задача в другом потоке
    TaskDemoTimer.Start(20);
    AddLog(Format('%s %s', [TaskDemoTimer.Name, 'start']));
end;

procedure TfrmWCThreadDemo.TaskDemoTimerFinished(Sender: TTask);
begin
    // задача сообщила обо окончании работы
    // здесь можно запустить другую задачу (выполняется в основном vcl потоке)
    AddLog(Format('%s %s', [Sender.Name, 'finished']));
end;

procedure TfrmWCThreadDemo.TaskDemoTimerProgress(Sender: TTask; const Value: Word);
begin
    // выполняется в основном vcl потоке
    AddLog(Format('%s %s %d', [Sender.Name, 'progress', Value]));
end;

end..

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, wcthread, StdCtrls;

type
  TForm1 = class(TForm)
    WCThread1: TWCThread;
    TaskDemoTimer: TTask;
    Memo1: TMemo;
    butDemoTimer: TButton;
    procedure butDemoTimerClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure TaskDemoTimerExecute(Sender: TTask);
    procedure TaskDemoTimerFinished(Sender: TTask);
    procedure TaskDemoTimerProgress(Sender: TTask; const Value: Word);
  private
    { Private declarations }
  public
    procedure AddLog(const Text: string);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AddLog(const Text: string);
begin
  Memo1.Lines.Add(Format('%s : %s', [FormatDateTime('hh:nn:ss.zzz', Now), Text]));
end;

procedure TForm1.butDemoTimerClick(Sender: TObject);
begin
  Memo1.Lines.Clear;
  AddLog(Format('Processor count: %d', [WCThread1.ProcessorCount]));
  TaskDemoTimer.Start(20);
  AddLog(Format('%s %s', [TaskDemoTimer.Name, 'start']));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  WCThread1.FinishAllTasks;
end;

procedure TForm1.TaskDemoTimerExecute(Sender: TTask);
var i: integer;
begin
  // another thread
  for i := 0 to Sender.Param-1 do begin
    if Sender.Terminated then exit;
    Sleep(1000);
    Sender.PostProgress(i);
  end;
end;

procedure TForm1.TaskDemoTimerFinished(Sender: TTask);
begin
  AddLog(Format('%s %s', [Sender.Name, 'finished']));
end;

procedure TForm1.TaskDemoTimerProgress(Sender: TTask; const Value: Word);
begin
  AddLog(Format('%s %s %d', [Sender.Name, 'progress', Value]));
end;

end.