求助:窗口关闭错误
前段时间,我在这发贴求助(关于A窗口用按钮打开设置为可用窗口的B窗体),按得到的答复测试通过了(http://topic.csdn.net/u/20120222/14/83486001-567b-4001-b259-e355b9672af7.html).
今天,我在B窗口中加了个按钮,加入一段代码,用于关闭B窗口(B.CLOSE;),编译通过,正常打开,但点击关闭按钮却出现错误,不知为何,请大家给指点一下,先谢谢了.

[解决办法]
project->options->forms把form2移到右边

form1:
uses unit2;

procedure TForm1.buttonclick(sender:tobject);
begin
form2:=tform2.create(nil);
form2.showmodal;
form2.free;
end;

form2:
procedure TForm2.button1click(sender:tobject);
begin
modalresult:=mrok;
end;