如果关闭一个窗体？

Question

是这样的：我在窗体的Create创建事件中初使化我的类：
  … …
  A:=TA.Create(Self);
  … …
  在我的TA类中，我使用了异常控制功能，能成功捕获异常。现在，当A能够成功创建时，窗体能够正常显示；但我需要：当A创建过程中出现异常时，则关闭这个窗体。我应该怎么办？请给出代码片段。感谢！！

Answer 1

try
  A:=TA.Create(Self);
except
  Application.MessageBox(PChar('Wrong'),'Exception',MB_OK);
if Assigned(A) then
  A.Show;
  
  

Answer 2

你在创建窗体时,应该在显示它时进行异常处理才好的,我认为
A:=TA.Create(Self);
try 
   A.showmodal;
except
  A:=nil;
  A.free;
finally
  A.free;
  
end;

Answer 3

try
finally
//写入nil free
end

Answer 4

try 
  A:=TA.Create(Self);
  A.showmodal;
finally 
   A.free;
end;