Return the variante type in string

VarTypeToStr.pas

// uses Variants
function VarTypeToStr(Value: Variant): String;
begin
  Result := VarTypeAsText(VarType(Value));
end;

//or

function VarTypeToStr(Value: Variant): String;
var
  typeString : string;
  basicType  : Integer;
begin
  Result := 'varTypeNotFound';
  basicType := VarType(Value) and VarTypeMask;
  case basicType of
    varEmpty     : Result := 'varEmpty';
    varNull      : Result := 'varNull';
    varSmallInt  : Result := 'varSmallInt';
    varInteger   : Result := 'varInteger';
    varSingle    : Result := 'varSingle';
    varDouble    : Result := 'varDouble';
    varCurrency  : Result := 'varCurrency';
    varDate      : Result := 'varDate';
    varOleStr    : Result := 'varOleStr';
    varDispatch  : Result := 'varDispatch';
    varError     : Result := 'varError';
    varBoolean   : Result := 'varBoolean';
//    Valueiant    : Result := 'Valueiant';
    varUnknown   : Result := 'varUnknown';
    varByte      : Result := 'varByte';
    varWord      : Result := 'varWord';
    varLongWord  : Result := 'varLongWord';
    varInt64     : Result := 'varInt64';
    varStrArg    : Result := 'varStrArg';
    varString    : Result := 'varString';
    varAny       : Result := 'varAny';
    varTypeMask  : Result := 'varTypeMask';
  end;
end;