TVarRec = record
  case Byte of
    vtAnsiString: (VAnsiString: Pointer;);
    vtBoolean: (VBoolean: Boolean;);
    vtChar: (VChar: Char;);
    vtClass: (VClass: TClass;);
    vtCurrency: (VCurrency: PCurrency;);
    vtExtended: (VExtended: PExtended;);
    vtInt64: (VInt64: PInt64;);
    vtInteger: (VInteger: Integer;
                VType: Byte;);
    vtInterface: (VInterface: Pointer;);
    vtObject: (VObject: TObject;);
    vtPChar: (VPChar: PChar;);
    vtPointer: (VPointer: Pointer;);
    vtPWideChar: (VPWideChar: PWideChar;);
    vtString: (VString: PShortString;);
    vtVariant: (VVariant: PVariant;);
    vtWideChar: (VWideChar: WideChar;);
    vtWideString: (VWideString: Pointer;);
end;

struct TVarRec {
  Integer VInteger;
  Byte VType;
  Boolean VBoolean;
  Char VChar;
  PExtended VExtended;
  PShortString VString;
  Pointer VPointer;
  PChar VPChar;
  TObject VObject;
  TClass VClass;
  WideChar VWideChar;
  PWideChar VPWideChar;
  Pointer VAnsiString;
  PCurrency VCurrency;
  PVariant VVariant;
  Pointer VInterface;
  Pointer VWideString;
  PInt64 VInt64;
};