Buscar o nome do método

uses JclDebug;

//Function para extrair somente o nome do método pois o parametro OnlyProcedureName não me atendeu
function MethodName(const AMethod: string): string;
begin
  Result := Copy(AMethod, 1, Pos('$', AMethod) -1);
end;

//para utilizar a função ProcByLevel(const Level: Integer; OnlyProcedureName: boolean)
  vSuaString := MethodName(ProcByLevel(1, False));

{***************************************************************
  O parâmetro Level indica qual função você deseja identificar:
            0: Função Atual
            1: Um nível acima
            2: Dois níveis acima
            etc
***************************************************************}