Renomear componentes automáticamente

Fazendo um exemplo contido na revista clubedelphi do mês passado, sobre renomear componentes usando OTA, funciona perfeitamente, só que além dos componentes preciso renomear as procedures dos eventos já declaras com o nome antigo para o nome novo, alguém sabe como fazer isso ?

Quem quiser o código do componente eu envio, basta mandar um e-mail me pedido...


:idea: