Herança, como sobrescrever eventos ?

Alguém tem um exemplo compilável de como sobrescrever um evento ? exemplo do TForm/TEdit. Gostaria de sobrescrever eventos, para incluir instruções genéricas em seguida continue com o evento da classe-base.   Para testar herança no TForm, consegui definir novas propriedades, sobrescrever métodos para incluir minhas instruções e no final chamar o método da classe-base.     Estou usando Delphi 7   obrigado.