delphi如何输出当前堆栈

想实现，输出当前运行的堆栈，有会的吗？给点思路

方法很多，参考：

https://bitbucket.org/shadow_cs/delphi-leakcheck/

的

https://bitbucket.org/shadow_cs/delphi-leakcheck/raw/25652a1e8909dd5e560dab50ec84f475da6ba803/Source/LeakCheck.Trace.DbgHelp.pas

https://www.codeproject.com/Articles/5498/TraceTool-The-Swiss-Army-Knife-of-Trace