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