TCustomVariantType
ro
VarType
TObject