procedure VarCast(var dest: Variant; const source: Variant&; type: Integer);
__fastcall void VarCast(Variant & dest, const Variant& source, int type);
sysvari.h
This is function System::VarCast.