delphi – 如何检查对象引用是否仍然有效？

procedure TForm1.Button1Click(Sender: TObject);
  var form1 : TForm;
      ref2 : TControl;
begin
  form1 := TForm.Create(nil);
  form1.Name := 'CustomForm';
  form1.Parent := self; //Main Form

  form1.Show;

  ref2 := form1;
  showmessage(ref2.ClassName+' - '+ref2.Name+' - '+BoolToStr(ref2.visible,true));
  freeandnil(form1);
  showmessage(ref2.ClassName+' - '+ref2.Name+' - '+BoolToStr(ref2.visible,true));
end;

第一个showmessage返回 – “TForm – CustomForm – True”(就像我期望的那样).

第二个showmessage回归 – “TForm – – False”.我实际上希望某种访问违规,然后我可以陷阱并知道该引用无效.

在我的应用程序中,我需要在创建它们时编译随机TForm后代的列表,然后稍后检查它们是否已经消失(或者不可见).不幸的是,这是一个基于插件的系统,所以我可以改变所有这些表格来发布“我已完成消息”.

像这样的代码是否可以安全使用(假设我实际上正在检查访问违规)？有没有人有任何想法发生了什么.

谢谢