TFPHashObjectList
TObject