Setting new name for pasting component

procedure SetPasteName(Reader: TReader; Component: TComponent; var Name: string); virtual;