var
  vf; tform1;
begin
  vf:=FindComponent('form1')
  vf.show;
end;

解决方案 »

  1.   

    上面的有些问题
    var
      vf: tform1;
    begin
      vf:=Tform1(Application.FindComponent('form1'));
      vf.show;
    end;
      

  2.   

    上面的有些问题
    var
      vf: tform;
    begin
      vf:=Tform(Application.FindComponent(form_regedit));
      vf.show;
    end;
      

  3.   

    上面的有些问题还是我自己回答吧!
    var
      vf: tComponent;
    begin
      vf:=Application.FindComponent(form_name);
      (vf as tform).show;
    end;