如何动态打开窗体
aa.form窗体已存在，想通过变量赋值方式将其打开。procedure TmainForm.run_program;
var myform:tform;
p_form:string;
begin
p_form:='aa';
MyForm := (Application.FindComponent(p_form) as TForm);
Myform.ShowModal;
end;
结果是‘aa’无法赋值给MYFORM,MYFORM显示为NILL,无法打开该窗体
请各位高手给予指正，如何实现
