How to get MethodName

Lemma78

I am trying to get MethodName, but I get always empty string ...

type
TParseSymbolProcedure = procedure(symbol: TSymbol) of object;
TParser = class
private
FParse: TParseSymbolProcedure;

procedure Parse_Set(symbol: TSymbol);
procedure Parse_SetVar(symbol: TSymbol);
procedure Parse_SetVarExpr(symbol: TSymbol);
end;

...
FParse := Parse_Set;
...
now I need code like MethodName(FParse);
and the result would be 'ParseSet'
... is it possible? do I need to change TParser a log to make it work?

thx for answer