....
Использование TTask
TTask – это класс, который позволяет запускать одну задачу или несколько задач параллельно. При этом вам не придётся создавать поток и управлять им. Класс TTask реализует интерфейс ITask. В интерфейсе ITask в вашем распоряжении есть функции для запуска (Start), ожидания (Wait) и отмены (Cancel) задачи и статус (Status), позволяющий узнать, что происходит с задачей. Вот возможные статусы задачи: Created (задача создана), WaitingToRun (задача ожидает окончания выполнения другого процесса), Running (задача выполняется), Completed (задача завершена), WaitingForChildren (задача ожидает окончания выполнения дочерней задачи), Canceled (задача была отменена), Exception (при выполнении задачи произошла ошибка).

А теперь попробуем выполнить несколько задач параллельно. Для этого нужно создать массив задач, запустить задачи и ждать когда они выполнятся. Для ожидания есть две статические функции класса 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;
И напоследок, ещё один пример, в котором я покажу, как обращаться к свойствам и контролам формы из процедуры задачи, как проверять статус задачи и как отменить её выполнение.