Delphiでクラス名からオブジェクトをデフォルトコンストラクタで生成する ///