第二次打开同一个对话框的问题

Question

我的做法如下：
procedure TFrm_Main.button1Click(Sender: TObject);
var
  vFrm : TFrm1;
begin
  vFrm := TFrm1.Create(Application);
  vFrm.ShowModal();
  vFrm.Free();
end;但问题是第一次能打开，但是关闭TFrm1之后再次点击TFrm_Main中的Button1想再次打开TFrm1时，居然弹出堆栈框，求教各位高手~~多谢

Answer 1

procedure TFrm_Main.button1Click(Sender: TObject);
begin
with TFrm1.Create(Application)
begin
try
  ShowModal;
finally
  Free;
end;
end;
end;

Answer 2

在TFrm1的OnClose事件中写代码
begin
  action := cafree;
  Frm1 := nil;
end;