怎么传递类型为类（class）的参数啊

Question

怎么传递类型为类（class）的参数啊 
例如： 
var     
form1:Tform1 
form1:=Tform1.create(self) 
form1.show() TFORM1   类型是   class（Tform） 
我想把TFORM1   变为参数形式，可是不知到用什么类型； procedure   test(作为参数的TFORM1)； 
begin 
然后操作   作为参数的TFORM1 
end;

Answer 1

type
  TMyForm=class of Tform1;
...procedure test(myForm: TMyForm);
begin
end;

Answer 2

procedure Test(AForm: TForm);
begimn
  AForm.Show;
end;

Answer 3

传递类要使用类引用。type
  TFormClass: class of TFrom
  procedure Test(AForm: TFormClass);
  begin
  end;