{
TVarData example
This example shows how to use the TVarData type in typecasts of Variant variables to access the internals of a variable.
} 
var
  V: Variant;
begin
  ...
  if TVarData(V).VType = varEmpty then ...;
  ...
  VarClear(V);
  TVarData(V).VType := varInteger;
  TVarData(V).VInteger := 1234567;
  ...
end; 
