如何用代码控制MDIChild窗体的最大化与还原大小功能?(100分)

fsMDIChild窗体去掉最大化与最小化按钮,如何用代码控制它的最大化与还原大小功能?

//from1 is MDIform,form2 is mdichild
procedure TForm1.maxClick(Sender: TObject);
begin
if form2=nil then
form2:=tform2.Create(application);
form2.WindowState:=wsMaximized;
form2.Show;
end;

procedure TForm1.smallClick(Sender: TObject);
begin
if form2=nil then
form2:=tform2.Create(application);
form2.WindowState:=wsMinimized;
form2.Show;
end;

procedure TForm1.normalClick(Sender: TObject);
begin
if form2=nil then
form2:=tform2.Create(application);
form2.WindowState:=wsnormal;
form2.Show;
end;

同上的，自己改一下就行了

多人接受答案了。