如何使用TTask/ITask实现等效于匿名TThread的后台运行效果

使用TThread.CreateAnonymousThread(aProc:TProc)时，可创建在线程终止后自动销毁线程对象的线程（也可通过将线程对象的FreeOnTerminate属性设为true实现同等效果）。该机制允许启动线程的例程执行完毕、退出作用域后，线程仍可继续运行，完全匹配使用需求，示例代码如下：

procedure StartProcess
begin
  var lTask := TThread.CreateAnonymousThread(
    procedure
    begin
       // 执行耗时长的后台逻辑
    end
    );
  // 其他前置处理逻辑
  lTask.Start;
end;

使用TTask时遇到了异常：TTask.Create返回的ITask接口会在线程启动代码退出其上下文时被释放（引用计数降为0时会触发底层对象销毁调用），进而导致子线程抛出访问冲突（AV），问题场景的示例代码如下：

procedure StartProcess
begin
  var lTask := TTask.Create(
    procedure
    begin
       // 执行耗时长的后台逻辑
    end
    );
  // 其他前置处理逻辑
  lTask.Start;
end; 
// 执行流走到此处时，子线程会因为底层任务对象被提前销毁触发崩溃

在OmniThread框架中，可通过IOmniTaskControl.Unobserved方法避免任务在执行完成前被提前销毁。

更偏好ITask接口而非直接使用TThread类，原因是它支持松耦合与代码注入的特性（此前“TThread可能被弃用”的考量已作废）。

想知道是否可通过TTask.Create(aProc:TProc)和ITask接口实现上述和匿名线程等效的运行效果？如果可以该如何操作？目前已尝试分析相关源码，但暂未找到解决方案。

完全可以实现和TThread匿名线程一致的独立运行效果，根本不需要依赖第三方框架，ITask接口本身就提供了对应的原生能力。
崩溃的核心原因是TTask默认的生命周期管理逻辑：创建任务时，ITask实现对象的生命周期完全由外部持有的接口引用决定，当最后一个外部引用退出作用域、引用计数归零时，底层任务对象会被立即销毁，如果此时后台的任务执行逻辑还在运行，就会触发访问冲突。
只需要在调用Start方法前，给任务实例调用一次Unobserved方法，就可以切换任务的生命周期管理模式，和使用FreeOnTerminate的效果完全对齐：

procedure StartProcess
begin
  var lTask := TTask.Create(
    procedure
    begin
       // 执行耗时长的后台逻辑
    end
    );
  // *关键步骤*：解除外部引用对任务生命周期的绑定
  lTask.Unobserved;
  lTask.Start;
end;
// 执行流走到此处时，局部lTask接口变量释放，但后台任务会独立执行到完成后自动清理资源，不会触发崩溃

实现原理 #

Unobserved方法的核心作用是给任务内部增加一个自维持引用：当被标记为非观察状态后，任务的生命周期不再依赖外部持有的接口引用，会由任务自身的调度器管理，直到后台执行逻辑跑完、关联的终止事件全部触发完成后，才会自动释放所有引用、回收资源。
该实现的设计思路和OmniThread框架的IOmniTaskControl.Unobserved完全一致，只是官方原生的能力直接内置在ITask接口中，从Delphi XE8版本开始就已经提供。之前阅读源码没找到方案，大多是因为没有注意到接口上的这个方法，相关逻辑藏在任务调度器的引用计数实现里，没有显式的生命周期切换说明。

注意事项 #

• 一旦调用Unobserved方法，外部就无法再获取到该任务的引用，不能再对任务执行WaitFor、状态查询、绑定OnTerminate事件等操作，该方法仅适用于“启动后不需要干预，让任务独立跑完自动清理”的场景
• 如果后续需要跟踪任务的执行状态，就不要调用该方法，保持默认的外部引用管理模式即可

内容的提问来源于stack exchange，提问作者H.Hasenack