重载一下CreateParams函数：
头文件(h)：
protected:
  virtual void __fastcall CreateParams(TCreateParams &Params);
单元文件(cpp)：
void __fastcall TForm1::CreateParams(TCreateParams &Params)
{
  TForm::CreateParams(Params);
  strcpy(Params.WinClassName,"Test for new Form Class Name"); //<=64半角字符
}