TCustomVariantType
TObject