Name der aufrufenden procedure/function ermitteln

[StefanL34]

Hallo Delphi-Communitiy,

wie kann man den Namen einer aufrufenden procedure ermitteln?


Beispielcode:

Delphi-Quellcode:

procedure ABC;

begin
  XYZ;

end;

procedure UVW;

begin

  XYZ;
end;

procedure XYZ;

begin
  ...
end;

dabei soll INNERHALB der procedure XYZ ermittelt werden ob sie von "ABC" oder "UVW"
aufgerufen wurde.

Bin Dankbar für jeden Hinweis

wenn es nicht in dieser allgemeinen Form geht, dann vielleicht wenigstens
wenn die procedure zu einer Klasse gehören
oder kann man durch Übergabe von Sender: TObject
oder VonKomp : TComponent

also mit
procedure XYZ(VonKomp : TObject);

oder so ähnlich sowas realisieren?

Bin dankbar für jeden Hinweis

viele Grüße

Stefan