title: How to get current method's name in Delphi 7?
body: <p>Is there any way to know the name of a method I'm currently in?</p>
  
  <p>So that:</p>
  
  <pre><code>procedure TMyObject.SomeMethod();
  begin
    Writeln('my name is: ' + &lt;hocus pocus&gt;); 
  end;
  </code></pre>
  
  <p>would produce this output:</p>
  
  <p><code>my name is: SomeMethod</code></p>