Occurs when the reader needs to set a component's name.
Source position: classesh.inc line 1844
type TSetNameEvent = procedure(
Reader: TReader;
Component: TComponent;
var aName: string
) of object;