Source position: mclasses.pas line 357
type TSetNameEvent = procedure(
Reader: treader;
Component: tcomponent;
var Name: string
) of object;