您可以使用JclDebug.pas单元中的ProcByLevel函数，该单元是JCL库的一部分。
在使用之前，您必须从Ide菜单工具-〉jcl选项激活选项'Insert JDBG data into the binary'。

然后你可以这样使用它

Uses
 JclDebug;

procedure TForm18.Button1Click(Sender: TObject);
begin
    try

       raise  Exception.Create('Hello from '+ProcByLevel(0));
    except
         on e : Exception do
         ShowMessage(e.Message);
    end;
end;

结果是这样的

EurekaLog也是一个优秀的工具，与MadExcept不相上下。
如果您有EurekaLog：

uses
  EDebugInfo;

procedure TMyObject.SomeMethod();
begin
  Writeln('my name is: ' + __FUNCTION__); 
end;

还有__FILE__、__MODULE__、__UNIT__、__LINE__，以及一个通用的GetLocationInfoStr函数。
然而：
1.只有在使用一些调试信息（以及corresponding debug info provider is enabled）进行编译时，它才能工作：

• EurekaLog有自己的调试信息格式，可以选择压缩（实际上不推荐压缩，因为这会花费更多的内存和CPU）。
• 它还支持JCL/JEDI、Synopse/MAB以及. map、. tds/TD32、. dbg和. pdb。

1.它不是一个常量。名字将被动态查找，所以它有一些运行时间开销。

像MadExcept这样的库向应用程序添加元数据，以便它可以将地址Map到单元和函数名。
Delphi 不会自动执行此操作，也没有提供直接执行此操作的方法，它只是提供引发异常的地址。
以下是一些替代方法：

• FastMM
• Jedi
• MadExcept

有了它们，您可以在发生异常时获得调用堆栈的快照。

还可以看看JCLDebug的JCLLastExceptStackListToStrings（），它为您提供了一个很好的异常点堆栈转储。
就像TheNewbie说的：可以通过将TApplication.OnException设置为错误处理程序的地址来实现。

不， Delphi 没有任何内置的“获取当前函数名”功能，MadExcept或类似产品可能是在错误报告中获取有意义的名称的最佳方法。

当然，MadExcept是目前为止我发现的最好的解决方案，但是如果你的需求不是太花哨，而且你的项目是商业化的，那么你应该检查项目JEDI的JCL（特别是JclDebug.pas）。在那里你会发现很多有用的例程。它支持.MAP文件，TurboDebugger符号，等等。而且，用它你可以嵌入调试信息（就像MadExcept一样）。
您可能还需要研究一下TApplication.OnException（以及相关的）。

正如其他人所说... JCL有一些很好的特性...
在您的应用程序中...您需要设置一些信息来获得必要的堆栈框架的挂钩...
项目--〉编译器-〉堆栈帧...我还检查了所有调试并添加了以下内容...项目-〉选项-〉链接器-〉Map文件（选择详细信息）/包含TD 32调试信息
在我的记录器单位...我有这个...你必须有你自己的TLogger...它为你保存信息...

use
  JclDebug, JclHookExcept;

procedure HookGlobalException(ExceptObj: TObject; ExceptAddr: Pointer; OSException: Boolean);
var
  a_List: TStringList;
  a_Error: string;
begin
  if Assigned(TLogger._Instance) then
  begin
    a_List := TStringList.Create;
    try
      a_List.Add(cStar);
      a_Error := Exception(ExceptObj).Message;
      a_List.Add(Format('{ Exception - %s }', [a_Error]));
      JclLastExceptStackListToStrings(a_List, False, True, True, False);
      a_List.Add(cStar);
      // save the error with stack log to file
      TLogger._Instance.AddError(a_List);
    finally
      a_List.Free;
      Raise Exception.Create(a_Error);
    end;
  end;
end;

initialization
  Lock := TCriticalSection.Create;
  Include(JclStackTrackingOptions, stTraceAllExceptions);
  Include(JclStackTrackingOptions, stRawMode);

  // Initialize Exception tracking
  JclStartExceptionTracking;

  JclAddExceptNotifier(HookGlobalException, npFirstChain);
  JclHookExceptions;

finalization
  JclUnhookExceptions;
  JclStopExceptionTracking;
  Lock.Free;

end.