Sobrescrever o método OnExecute do TAction (Delphi)

Alguém já precisou/conseguiu sobrescrever o método OnExecute de um TAction?
O que eu preciso é, de uma forma genérica que em cada Execute de uma TAction, ele faça uma determinada ação. Por exemplo pedir uma senha se atender a algum requisito.