Delphi-是否有任何简单/快速的方法来获取调用方函数的地址？

Question

是否有任何简单的方法（在x86和x64上）确定哪个函数称为 “ test3”运行时？我试图找到一些短代码，而不是整个框架（绝地的调试）

Program Test;

{$APPTYPE CONSOLE}

Procedure Test3;
Begin
// Detect caller here
End;

Procedure Test1;
Begin 
Test3;
End;

Procedure Test2;
Begin
Test3;
End;


Begin 
Test1;
Test2;
Readln;
End;