Von welcher Procedure wird meine Procedure aufgerufen

[s.h.a.r.k]

Guten Morgen,

ich hab da mal eine allgemeine Frage: und zwar hab ich eine Fremdkomponente, eine Art TabBar, deren Zeichen-Procedure ich etwas umschreiben will (farblich). Nun ist es so, dass ich am Procedure-"Kopf", d.h. auch an den Parametern, nichts umstellen darf, aus welchen Gründen auch immer. Nun würde ich gerene wissen, ob es möglich ist in einer Procedure herauszufinden, von welcher Procedure (oder auch Function) diese aufgerufen wurde?!

Beispiel:

Delphi-Quellcode:

procedure Test;
begin
  SayHello;
  // ...
end;

procedure SayHello;
begin
  ShowMessage("GetParentProcedure"); // imaginärer Befehl halt ;)
  // do anything else...
end;

mfg Armin