identificar Variants

Boas,

tenho uma função que recebe parametro Variant e gostava de
alem de saber o seu valor saber o seu name ;

Exemplo ;

Var
v1 : variant ;

v1 := ( 1 = 1 ) ;
chama_funcao_variant( v1 ) ;

ela me devolve True , mas queria que devolvesse ( 1 = 1 )

alguem consegue resolver

obrigado

Atentamente,