procedure VarCast(var Dest: Variant; const Source: Variant; VarType:  Integer);
procedure VarCast(var Dest: OleVariant; const Source: Variant; VarType: Integer);

Процедура VarCast выполняет преобразование Source в новый тип Variant, сохраняя результат в Dest. VarType не может содержать биты varArгау и varByRef.
Если Dest имеет тип OleVariant, новый тип должен быть OLE-совместимым. В частности, нельзя преобразовать значение к типу varString, a необходимо использовать varOleStr. В противном случае VarCast выдаст ошибку времени выполнения 15 (EVariantError).
VarCast не является настоящей процедурой.

• Процедура VarCast аналогична функции VarAsType. Разница состоит в том, что VarCast выполняет дополнительные проверки при преобразовании в OleVariant.
• Если Source уже имеет тип VarType, VarCast выполняет простое копирование.

var
  V: Variant;
  O: OleVariant;
begin
  V  :=  'Это тест';	// VarType(V) = varString
  VarCast(O,  V,  varOleStr);