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;