procedure Assign(pSelectionList: TPersistent); override;