function VarAsType(const V: Variant;  VarType:  Integer):  Variant;

Функция VarAsType выполняет преобразование V в другой тип Variant. VarType не может содержать битов varArray и varByRef. Если преобразование V к требуемому типу невозможно, VarAsType генерирует ошибку времени выполнения 15 (EVariantError).
VarAsType - настоящая функция

• VarAsType - версия процедуры VarCast, возвращающая значение. Для того чтобы присвоить это значение переменной типа OleVariant, следует вызвать процедуру VarCast, т. к. она обеспечивает дополнительную проверку типов.
• Если Source уже имеет тип VarType, VarAsType выполняет простое копирование.

Int := 1;
Float := VarAsType(Int, varDouble);