Изменил трейт TSingleton скрестив Singleton и Registry