Синглтон

[megachuhancer]

Здравствуйте. Можно ли как-то реализовать в Delphi класс, любой наследник которого был бы синглтоном? Т.е. чтобы можно было использовать просто наследование.
Просто сейчас я перекрываю виртуальную class function, содержащую типизированную константу с экземпляром. По моему, это уменьшает "прозрачность" кода.