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