[fpc-pascal] Determining procedure's name

[Wimpie Nortje]

Hello everybody,

Is there a macro or function that gives the current procedure's name?

E.g.

procedure TClass.SomeProc;
begin
  writeln(Format('This procedure's name is %s', [THE_MACRO]));
end;

should print

This procedure's name is TClass.SomeProc

or

This procedure's name is SomeProc