改成一个显示Form并能传递给全局变量的函数怎么做

Question

Form2:=Tform2.Create(Self); 
Form2.FormStyle:=fsMDIChild; 
Form2.WindowState:=wsNormal; 
Form2.Show; 改成一个显示Form并能传递给全局变量的函数怎么做，以下两种方法都不行 procedure  TForm_Client.ShowForm(FrmClass:TForm); 
begin 
    FrmClass:=TForm.Create(Self); 
    FrmClass.FormStyle:=fsMDIChild; 
    FrmClass.WindowState:=wsMaximized; 
    FrmClass.Show; 
end; 
procedure  TForm_Client.ShowForm(ShowForm:TFormClass); 
var 
MyForm:TForm; 
begin 
    MyForm:=ShowForm.Create(self); 
    MyForm.FormStyle:=fsMDIChild; 
    MyForm.WindowState:=wsMaximized; 
    MyForm.Show; 
end; 
//无法传递给全局变量

Answer 1

procedure  TForm_Client.ShowForm(FormClass: TFormClass);
var
  MyForm:TForm;
begin
  MyForm:=FormClass.Create(self);
  MyForm.FormStyle:=fsMDIChild;
  MyForm.WindowState:=wsMaximized;
  MyForm.Show;
end; //FormClass必须注册才可以调用
如：
initialization
  RegisterClass(TForm2);
finalization
  UnRegisterClass(TForm2); end.