关于XE里面的并行运算疑问:如何在主线程通知任务结束并等待任务结束....

[OK_boom]

任务里面是死循环, 点击结束按钮后,从主线程通知任务结束,然后等待所有任务完成后再显示"All Done" 这个流程, 百度/谷歌了一阵没发现这方面的话题,自己用TTask亦试不出来,唯有定义一组外部变量来实现...
各位大神有没有相关的代码?
TTask里面的获取状态代码,

function TTask.GetStatus: TTaskStatus;
var
LFlags: TOptionStateFlags;
begin
LFlags := FState;
if TOptionStateFlag.Faulted in LFlags then
Result := TTaskStatus.Exception
else if TOptionStateFlag.Canceled in LFlags then
Result := TTaskStatus.Canceled
else if TOptionStateFlag.Complete in LFlags then
Result := TTaskStatus.Completed
else if TOptionStateFlag.ChildWait in LFlags then
Result := TTaskStatus.WaitingForChildren
else if TOptionStateFlag.CallbackRun in LFlags then
Result := TTaskStatus.Running
else if TOptionStateFlag.Started in LFlags then
Result := TTaskStatus.WaitingToRun
else
Result := TTaskStatus.Created;
end;

亦就是说FState已经有了[Completed,Cancled]但最终得到的还是Cancled状态,但 用Cancled来判断任务是否结束亦不适合...