TShowMethodEvent = procedure (Sender: TObject; const MethodName: string) of object;