Extender funcionalidad evento

[kamuspik]

Hola, me presento en el foro con una duda sobre eventos.
Mi intención es que cuando se lance el evento OnDataChange de un TDataSource se ejecute un fragmento de código propio para después mantener el comportamiento original mendiante inherited.
Para ello he creado un componente nuevo que hereda de TDataSource y he intentado rescribir el evento OnDataChange ya que es requisito que todo el código implementado quede dentro del componente.

Lo que he realizado es lo siguiente:

Código Delphi [-]
unit IDSDataSource;

interface

uses
  SysUtils, Classes, DB, Dialogs;

type
  TIDSDataSource = class(TDataSource)
  private
    procedure IDSDataSource1DataChange(Event: TDataChangeEvent);
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    property OnDataChange: TDataChangeEvent write IDSDataSource1DataChange;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('IDS', [TIDSDataSource]);
end;

procedure TIDSDataSource.IDSDataSource1DataChange(Event: TDataChangeEvent);
begin
  ShowMessage('¡Entro aquí!');

  inherited;
end;

end.

¿Voy por el buen camino? No consigo que entre en la rutina MiDataSource1DataChange.

Muchas gracias por vuestro tiempo, un saludo.