Source position: mclasses.pas line 359
type TReferenceNameEvent = procedure(
Reader: treader;
var Name: string
) of object;