如何动态打开窗体

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,无法打开该窗体
请各位高手给予指正，如何实现。