Source position: testregistry.pp line 48
procedure RegisterTestDecorator(
ADecoratorClass: TTestDecoratorClass;
ATestClass: TTestCaseClass
);