TIBDatabase.CreateDatabase()でFirebirdのデータベースを作成するサンプルコー…