在Delphi中安全地使用Form来分发与其生命周期相关的接口对象？

type
  IFormLifecycle = interface
    ['{XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX}']
    procedure OnCreate;
    procedure OnDestroy;
    procedure OnShow;
    procedure OnHide;
  end;

type
  TMyForm = class(TForm, IFormLifecycle)
    // ...
    procedure OnCreate;
    procedure OnDestroy;
    procedure OnShow;
    procedure OnHide;
  end;

procedure TMyForm.OnCreate;
begin
  // 处理创建时的操作
end;

procedure TMyForm.OnDestroy;
begin
  // 处理销毁时的操作
end;

procedure TMyForm.OnShow;
begin
  // 处理显示时的操作
end;

procedure TMyForm.OnHide;
begin
  // 处理隐藏时的操作
end;

constructor TMyForm.Create(AOwner: TComponent);
begin
  inherited;
  // 注册接口
  (Owner as IFormLifecycle).OnCreate;
end;

destructor TMyForm.Destroy;
begin
  // 注销接口
  (Owner as IFormLifecycle).OnDestroy;
  inherited;
end;

var
  Form: TMyForm;
begin
  Form := TMyForm.Create(Self);
  try
    // 分发接口
    (Form.Owner as IFormLifecycle).OnShow;
  except
    Form.Free;
    raise;
  end;
end;