tsubsystemclass must be derived from tbasetype