TSetNameEvent is a procedure called by the TReader class OnSetNameEvent event.

TSetNameEvent = procedure (Reader: TReader; Component: TComponent; var Name: string) of object;

(Reader: TReader; Component: TComponent; var Name: string) ( TSetNameEvent)();