Name der Function / Procedure ermitteln

[MPirnstill]

Hallöle!

Was mich schon immer etwas nervt , ist daß ich den Namen der Procedure/Function in meiner Fehlermeldung eintragen muß, um zu wissen von welcher Stelle in meinem Prog die Meldung kommt.

Ich habe mir angewöhnt, wenn ich einem Try-Except-Block mit ShowMessage eine Fehlermeldung ausgeben, voran den Namen der Procedure / Function zu schreiben. z.B.:

Delphi-Quellcode:

try
  ...
except
  on E:Exception do
    showMessage('LadeComboBox: ' + E.Message);
end;

Wenn man beim kopieren dann mal vergisst den Namen zu ändern und der Fehler auftritt, sucht man sich einen Wolf.
Gibt es nicht irgendeinen Befehl oder eine Variable mit der ich den Namen der aktuellen Procdure / Function ermitteln / abfragen kann?

Gruß