関数がどこから呼ばれたか調べる方法

---

共通のクラス内で、使用する関数がどこから呼ばれたか判断する方法ありますか？

TCla1.Hoge{
 Cla3.Add;        //<-この関数を呼びます。
}

TCla2.Test{
 Owner.Add;      //<-OwnerはTCla1です。
}

TCla3.Add{
 //ここでHogeから呼ばれたか、Testから呼ばれたか判断したい。
}

フラグなどを使わないでできる方法があればおしえてください。
よろしくお願いします。

編集 削除

---

C++Builderのようなきもしますが、

ついちょっと前にDelphiMLで聞いたのですが、
簡単な方法はないようです。
https://www.freeml.com/delphi-users/1439/latest

DelphiやC++BuilderやC#やVB.NETでは
senderというのを使っているので
そういう仕組みを用意してやる必要がありそうですね。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。