Delphi XE10 Task 获取当前线程

Delphi XE10  Task 获取当前线程 

需要在当前运行的函数下

TThread.CurrentThread.ThreadID;