Source position: classesh.inc line 1522
type TFindComponentClassExEvent = procedure(
Reader: TReader;
const aName: string;
const anUnitname: string;
const aClassName: string;
var ComponentClass: TComponentClass
) of object;