Source position: tiObject.pas line 739
public procedure TPerObjFactory.RegisterClass(
const AClassName: string;
AClass: TtiClass
);