TNotifyEvent a Cadena?

[[movorack]]

Es más... haciendo esta modificación para manejar el TNotifyEvent en lugar del objeto, consigo obtener el nombre a partir del TNotifyEvent (cosa que no me funcionaba en el componente).

Código Delphi [-]
procedure TFrmTestPlanEjecD5.BtnAddAccionClick(Sender: TObject);
  var
    lEvento : TNotifyEvent;
    lAccion : TKplAccionItem;
    lNomEve : string;
    lNomNot : string;
begin
  lAccion := KPlGenDefi.Acciones.Add;
  lAccion.Nombre := 'Accion1';
  lAccion.Evento := BtnTontoClick;
  lEvento := BtnTontoClick;
  lNomEve := MethodName(@lAccion.Evento);
  lNomNot := MethodName(@lEvento);
  ShowMessage(Format('lAccion.NomEve : %s -- lNomEve : %s -- lNomNot : %s',
                     [QuotedStr(lAccion.NomEve),
                      QuotedStr(lNomEve),
                      QuotedStr(lNomNot)
                      ]));
end;

Edito: Acabo de ver en Classes.pas que TNotifyEvent = procedure(Sender: TObject) of object... he estado dando vueltas en circulo.