Klasse um Methode einer Eigenschaft erweitern

[fillibuster]

Hallo,

ich habe ein kleines Verständnisproblem bei der Erweiterung meiner Klasse:

Delphi-Quellcode:

  TDBGriddata = class (TObject)
  private
    FQuery      : TZQuery;
    FDataSource : TZDataSource;
  public
    constructor Create; virtual;
    destructor Destroy; override;
    .....
    property DataSource : TDataSource read FDataSource;
    property DataSet : TUniQuery read FQuery;
  end;

Jetzt möchte ich meine Klasse um eine Methode von FQuery erweitern (AfterOpen(DataSet: TDataSet)). Wie mach ich das?

Viele Grüße ...