DELPHI创建动态窗体函数

Author：Perl
     今天上班，同事跟俺说觉得DELPHI创建窗体的代码每次都要打两三行特麻烦，叫俺给他写个创建窗体的函数，好，那就写吧，用了五分钟时间写了个，中间因为类的继承搞错了花了我点时间，呵呵～～
      以后要创建窗体一行代码就完了，自己也省力，同事也省力，哈哈～～
///
      function CForm( TCForm:TFormClass;FormName:TForm):Boolean;
      begin
        try
          FormName := TCForm.create(Application);
          FormName.Show;
          Result := True;           //创建成功返回TRUE
        except
          Result := False;           //创建失败返回FALSE并退出改函数
          Exit;
        end;
       end;
//