funcao que retorna o tipo de uma variavel

essa ´variavel´ é um tipo variant?

bom, a principio eu a declarei como integer, em VB6 o tipo variant ocupava bem mais memória que o tipo integer !
Em VB6 tínhamos funcoes que retornava qualquer tipo de qualquer variavel (date, integer, string, variant ...)
o delphi tem algo parecido jah implementado.

Caro mprocha, tente essa função:

Function RetornaTipo(const v: Variant): String;
begin
Case TVarData(v).vType of
varEmpty: result := ´Empty´;
varNull: result := ´Null´;
varSmallInt: result := ´SmallInt´;
varInteger: result := ´Integer´;
varSingle: result := ´Single´;
varDouble: result := ´Double´;
varCurrency: result := ´Currency´;
varDate: result := ´Data´;
varUnknown: result := ´Desconhecido´;
varByte: result := ´Byte´;
varString: result := ´String´;
end;
end;