procedure VarCast(var Dest: variant; const Source: variant; VarType: longint)
Приведение типа вариант к другому типу. Если приведение невозможно, возникает исключение.
Параметры: