在我们的ERP项目中实现了新模块（.bpl）之后，我意识到此模块无法正确调试。作为某种变通办法，我想记录以下过程：

procedure TPWAModuleForm.GoBtnClick(Sender: TObject);
begin
  // This will load the URL in the edit box
  ChromiumWindow1.LoadURL(AddressEdt.Text);

  {$IFDEF DEBUG}
    buff := 'succeeded | New URL loaded';
    AssignFile(LogFile,'log.txt');
    Append(LogFile);
    if IOResult = 0 then
    begin
      writeln(LogFile,'[' + DateTimeToStr(now) + ']');
      writeln(LogFile,'GoBtnClick: ' + buff);
      writeln(LogFile,'--------------------------------');
      CloseFile(LogFile);
    end;
  {$ENDIF}
end;

我想知道是否有一种方法可以获取当前过程/函数的名称并将其作为字符串打印到文本文件中。

我已经找到了this线程，但这似乎不能解决我的问题。它不是动态的。