Object Pascal implementation of Abstraction Hierarchies