请问一个关于窗体的有关问题

请教一个关于窗体的问题
一个程序建立两个窗体FORM1   FORM2，在FORM1的单元UINT1中USES了FORM2的但愿UNIT2。在FORM1中放一个按钮，写入代码ShowWindow(Form2.handle,   SW_SHOW);
此时FORM2显示了出来，问题是点关闭按钮时却无法关闭FORM2，而FORM2的其他按钮工作正常。哪为高人能告诉我是什么原因啊？

[解决办法]
Action:=caFree;
[解决办法]
在 form1 中，用 form2.Show;
[解决办法]
procedure Tfrom2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;


procedure Tform2.FormDestroy(Sender: TObject);
begin
foem2 :=nil;
end;

上面这些是写到FORM2里面的

procedure TFrmMain.N15Click(Sender: TObject);
begin
if not assigned(form2) then
begin
form2 := Tform2.Create(Application);
form2.show;
end
end;

这些是写到FROM1里面的,你那样写也可以!~