Source position: pastree.pp line 1740
const InterfaceTypeNames: array [TPasClassInterfaceType] of string = ('COM', 'Corba');