Fórum Capturar o nome do método associado a um ev ento de um objeto qualquer de forma dinâmica #535231

Senhores bom dia,
A rotina abaixo verifica se o evento OnExit do objeto edt1 possui algum método associado:

procedure TForm1.btn2Click(Sender: TObject);
var
ctxRtti : TRttiContext;
typRtti : TRttiType;
prpRtti : TRttiProperty;
mthRtti : TArray<TRttiMethod>;
I: Integer;
begin
mem1.Lines.Clear;
ctxRtti := TRttiContext.Create;
try
typRtti := ctxRtti.GetType(edt1.ClassType);
prpRtti := typRtti.GetProperty('OnExit');
mem1.Lines.Add(prpRtti.Name + '=' + prpRtti.GetValue(edt1).ToString);
finally
ctxRtti.Free;
end;
end;

O comando "prpRtti.GetValue(edt1).ToString" retorna "(method code=0054B7C4, data=01E0CFF0)" enquanto outros eventos que não tem método associado retorna "(empty)".
Analisando o código fonte do método "ToString" vi que ele executa este comando "Format('(method code=%p, data=%p)', [FData.FAsMethod.Code, FData.FAsMethod.Data]);". Acredito que é por aí que vou conseguir chegar no método, o problema é que "FData" é privado e não consigo acessar as propriedades desta classe.
Como eu conseguiria ter acesso ao nome do método associado a um evento de uma classe qualquer de forma dinâmica?

Estou usando Delphi 2010

Pela vossa atenção muito obrigado.