procedure VarCast(var Dest: variant; const Source: variant; VarType: longint)  

Приведение типа вариант к другому типу. Если приведение невозможно, возникает исключение.

Параметры:

• Dest - переменная, куда будет сохранено значение нового типа.
• Source - значение, тип которого должен быть приведен к другому типу.
• VarType - желаемый тип.