动态创建并显示窗口的问题?(50分)

写错了，上面的form1不是动态创建的，是在form1中有4个按键，
每个按键可创建并显示一个窗体。

procedure TForm1.CloseChildForm(); //用来关闭其他子窗体,如果不关闭,则不须调用;
var
I:Integer;
begin
I:=Form1.MDIChildCount;
if I>2 then
begin
Form1.MDIChildren[1].Release;
end;
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
Application.CreateForm(TForm3,Form3);
CloseChildForm();
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
Application.CreateForm(TForm4,Form4);
CloseChildForm();
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
Application.CreateForm(TForm5,Form5);
CloseChildForm();
end;

procedure TForm1.ToolButton7Click(Sender: TObject);
begin
Application.CreateForm(TForm6,Form6);
CloseChildForm();
end;

procedure TForm1.ToolButton9Click(Sender: TObject);
begin
Application.CreateForm(TForm7,Form7);
CloseChildForm();
end;

procedure TForm1.ToolButton11Click(Sender: TObject);
begin
Application.CreateForm(TForm8,Form8);
CloseChildForm();
end;

procedure TForm1.ToolButton13Click(Sender: TObject);
begin
Application.CreateForm(TForm9,Form9);
CloseChildForm();
end;
给点分啊!

注意要在project菜单->project options->Forms页,将子窗体设为Available forms.

下面是函数,调用时传入想出现的窗体.
function ShowMyForm(Form:TForm):Boolean;
begin
Form:=TForm.Create(Application);
with Form do
try
ShowModal;
finally
Free;
end;
end;

输入参数为Form类
procedure ShowForm(FormClass: TFormClass);
begin
With FormClass.Create(Self) do
try
ShowModal;
finally
Free;
end;
end;

我已自己解决，谢谢大家！