我在创建一个主窗体以后创建了2个子窗体，但是我运行了以后子窗体只能最小化不能关闭，怎么才能关闭。

下面是我找到的代码
[code delphi]
請在此區域輸入程式碼
[/code]
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
**********************************************
Form1是父窗体 里面有个Button1
procedure TForm1.Button1Click(Sender: TObject);
begin
if Not Assigned(Form2) then
Form2 := TForm2.Create(Nil);
Form2.Show;
end;
form2是子窗体
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := Cafree;
Form2 := Nil;
end;


但是我在子窗体中输入这些就报错

乍看之下沒有問題，如果能全部程式秀出來，也許能知個大概。參考下面的看有沒有解。

關於 MDI 相同 Form 重複開啟，再逐一關閉時的錯誤問題.
http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=92352

------
努力會更接近成功

我已经找到出错的地方了，感谢你的提醒。