Переопределением обработчика события при создании MDIChild

[8alig8]

Здравствуйте, подскажите, что я не так делаю.
Имеется MDI Form (имя - MAIN) и MDI Child (имя - FormTreeList).
На MDIChild лежит pFIBDataSetTable1.
Мне нужно создавать екземпляры формы MDIChild НО с разными обработчиками события BeforeOpen для pFIBDataSetTable1. Т.е. для

procedure pFIBDataSetTable1BeforeOpen(DataSet: TDataSet);

в каждом новом экземпляре должен быть произвольный код

Я как делаю: в FormTreeList создаю класс-потомок и сразу ж пытаюсь переопределить событые.

Unit MAIN;
interface
....
type
  TCAListcl = class(TFormTreeList)
    procedure pFIBDataSetTable1BeforeOpen(DataSet: TDataSet);
  private

  public

  end;
...
implementation
...
procedure TCAListcl.pFIBDataSetTable1BeforeOpen;
begin
  pFIBDataSetTable1.SelectSQL.Text := 'select * from AGENTS where TYPEAGENTID=:par1';
  pFIBDataSetTable1.ParamByName('par1').Value := pFIBDataSetTree1.FieldValues['ID'];
  edt1.Text := 'YO!!';
end;

И в этой же главной форме на кнопке делаю create для потомка.

procedure TMainForm.mnS4Click(Sender: TObject);
var
  CAList : TCAListcl;
begin
  CAList := TCAListcl.Create(Application);
  CAList.Name := 'FormCAList';
...
//тут идет код не относящийся к делу...
end;

Так вот, в созданном потомке при вызове

pFIBDataSetTable1.open;

обработчик не срабатывает, вроде он не был переопределен.
Что мне делать, чтобы правильно переопределить этот обработчик?

Минус в том, что сколько разных экземпляров мне нужно будет создавать, столько доп классов потомков также нужно создавать. Но я с этим смирюсь. Главное решить данную задачу.

[Daramant]

Можно обойтись и без потомков.
Посмотри пример. Я программно создавал Buttons и назначал им события.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, Grids, Calendar;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);

    
    // описываем методы, которые будут событиями.
    // необходимо, чтобы совпадали типы и количество параметров
    // с тем событием которое ты хочешь перекрыть
    
    procedure MyEvent_Button1Click(Sender: TObject);
    procedure MyEvent_Button2Click(Sender: TObject);
    procedure MyEvent_Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  b: TButton;
begin
  b := TButton.Create(Application);
  b.Parent := Form1;
  b.Caption := 'button 1';
  b.Top := 10;

  // переопределение события
  b.OnClick := MyEvent_Button1Click;

  b := TButton.Create(Application);
  b.Parent := Form1;
  b.Caption := 'button 2';
  b.Top := 40;

  // переопределение события
  b.OnClick := MyEvent_Button2Click;

  b := TButton.Create(Application);
  b.Parent := Form1;
  b.Caption := 'button 3';
  b.Top := 70;
  
  // переопределение события
  b.OnClick := MyEvent_Button3Click;
end;

procedure TForm1.MyEvent_Button1Click(Sender: TObject);
begin
  ShowMessage('Button 1');
end;

procedure TForm1.MyEvent_Button2Click(Sender: TObject);
begin
  ShowMessage('Button 2');
end;

procedure TForm1.MyEvent_Button3Click(Sender: TObject);
begin
  ShowMessage('Button 3');
end;

end.

У тебя должно быть соответственно:

  procedure pFIBDataSetTable_MyEvent1_BeforeOpen(DataSet: TDataSet);
  procedure pFIBDataSetTable_MyEvent2_BeforeOpen(DataSet: TDataSet);
  ...
  procedure pFIBDataSetTable_MyEventN_BeforeOpen(DataSet: TDataSet);

И где-то в конструкторе:

  pFIBDataSetTable1.OnBeforeOpen := pFIBDataSetTable_MyEvent1_BeforeOpen;
  ...