А теперь попробуем выполнить несколько задач параллельно. Для этого нужно создать массив задач, запустить задачи и ждать когда они выполнятся. Для ожидания есть две статические функции класса TTask: WaitForAll (ожидать выполнения всех задач) и WaitForAny (ожидать выполнения хотя бы одной из задач).

uses System.Threading, System.SyncObjs;

procedure TForm1.Button2Click(Sender: TObject);
var
tasks: array of ITask;
task: ITask;
value: integer;

procedure CreateTasks;
begin
value := 0;
tasks := [
TTask.Create(procedure()
begin
//Выполняем задачу 5 секунд.
Sleep(5000);
//Добавляем к результату 5000.
TInterlocked.Add(value, 5000);
end
),
TTask.Create(procedure()
begin
//Выполняем задачу 3 секунды.
Sleep(3000);
//Добавляем к результату 3000.
TInterlocked.Add(value, 3000);
end
)
];
end;

begin
//Создаём задачи и инициализируем переменную value.
CreateTasks;
//Запускаем все задачи в массиве.
for task in tasks do
task.Start;
//Ждём выполнение всех задач.
TTask.WaitForAll(tasks);
//Результат будет 8000.
ShowMessage('Все задания выполнены. Результат: ' + IntToStr(value));
//Создаём задачи и инициализируем переменную value.
CreateTasks;
//Запускаем все задачи в массиве.
for task in tasks do
task.Start;
//Ждём выполнение любой из задач.
TTask.WaitForAny(tasks);
//Результат будет 3000.
ShowMessage('Все задания выполнены. Результат: ' + IntToStr(value));
end;
И напоследок, ещё один пример, в котором я покажу, как обращаться к свойствам и контролам формы из процедуры задачи, как проверять статус задачи и как отменить её выполнение.