动态的创建窗体，希望大侠指点，问题在注释中间。 ( 积分: 30 )

procedure TNormalFun.ShowForm(FormName: String; TabPage: TPageControl);
var
ObjCom: TComponent;
Fromstr: String;
begin
Fromstr := FormName;
ObjCom := Application.FindComponent(Fromstr);
if TForm(ObjCom) <> nil then
begin
try
if not assigned((ObjCom as TForm)) then
begin
try
//怎么在这里创建一下窗体就是，用application.create()命令来创建
//例如：
// Form2:= TForm2.Create(Self);
// Form2.Show;
// Form2.ManualDock(PageControl1);
//怎么实现Form2:= TForm2.Create(Self);这句怎么实现。
(ObjCom as TForm).Show;
(ObjCom as TForm).ManualDock(TabPage);
finally
end;
end;
end;
end;

procedure TNormalFun.ShowForm(FormName: String; TabPage: TPageControl);
var
ObjCom: TComponent;
Fromstr: String;
begin
Fromstr := FormName;
ObjCom := Application.FindComponent(Fromstr);
if TForm(ObjCom) <> nil then
begin
try
if not assigned((ObjCom as TForm)) then
begin
try
//怎么在这里创建一下窗体就是，用application.create()命令来创建
//例如：
// Form2:= TForm2.Create(Self);
// Form2.Show;
// Form2.ManualDock(PageControl1);
//怎么实现Form2:= TForm2.Create(Self);这句怎么实现。
(ObjCom as TForm).Show;
(ObjCom as TForm).ManualDock(TabPage);
finally
end;
end;
end;
end;

objcom := Tform2.Create(self);

用class reference
看下面的文章
http://www.tommstudio.com/ViewArticles.aspx?ID=732
http://www.tommstudio.com/

能不能给出具体的代码，谢谢。

多人接受答案了。