根据类名生成窗口

    RegisterClass(__classid(TForm2));
    TClass aClass = FindClass("TForm2");
    TForm1 *Form2 = NULL;
    Application->CreateForm(aClass,&Form2);
    Form2->ShowModal();