请教大家，动态创建的窗口怎么最大化

Question

问题是这样的，新建工程，在form1上面放一个按钮Button1，再新建一个窗口form2,不自动创建，上面放一个按钮button2。想实现，按下BUtton1时，form2显示，然后按form2上面的button2，Form2窗口最大化。我是这样写的
procedure TForm1.Button1Click(Sender: TObject);
var Form2:TFOrm2;
begin
  Form2:=TForm2.Create(self);
  Form2.Show;
end;procedure TForm2.Button2Click(Sender: TObject);
begin
  Form2.WindowState:=wsMaximized;
end;但是运行时，按下Button2，系统就报access错误。请问大家，怎么解决？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var Form2:TFOrm2;   //你这里的Form2 是个局部变量   ，去掉这里
begin
Form2:=TForm2.Create(self);
Form2.Show;
end;//form2 是单元until2中的全局对象，直接在单元until1中uses  until2；
procedure TForm2.Button2Click(Sender: TObject);
begin
Form2.WindowState:=wsMaximized;
end;