이럴때는 윈도우 사용자 메세지를 사용하시면 되겠네요

메인에서는 사용자 메세지를 받아서 생성인지 종료인지를 인식하시면 되고여

MDI Child에서는 생성시에 생성 메세지 날리고 종료일때 종료 메세지를 날리

면 해결 되겠네요..

아래에 예제가 있으니 해보세요... 제가 테스트 해봤습니다~

---------------------------------------------------------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;


const
  WM_USER_MDI = WM_USER + 100;   // MDI 생성 종료 사용자 메세지 정의

type
  TForm1 = class(TForm)
  private
    { Private declarations }

    procedure WMUserMDI(var msg : TMessage); message WM_USER_MDI;

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMUserMDI(var msg: TMessage);
begin
    case msg.WParam  of
        0 : ShowMessage( '소멸' );
        1 : ShowMessage( '생성' );
    end;
end;

end.
------------------------------------------------------------
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

uses Unit1;

procedure TForm2.FormCreate(Sender: TObject);
begin
    SendMessage( Form1.Handle, WM_USER_MDI, 1, 0 ); // 메인폼에 메세지 보냄
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
    SendMessage( Form1.Handle, WM_USER_MDI, 0, 0 ); // 메인폼에 소멸 메세지 보냄
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action := caFree;
end;

end.
---------------------------------------------------------------------