TStoredValue

pl 

OnSave

pl 

OnRestore

TCollectionItem

TPersistent

TObject