
(*
 Delphi Object and Component Reference
#{bmc bm9.BMP} TVarData example
This example shows how to use the TVarData type in typecasts of Variant variables to access the internals of a variable.
Variant V;
if (((TVarData)V).VType == varEmpty)
{
  VarClear(V);
  ((TVarData)V).VType = varInteger;
  ((TVarData)V).VInteger = 1234567;
} 
