TValueType =
(

0  vaNull,
1  vaList,
2  vaInt8,
3  vaInt16,
4  vaInt32,
5  vaExtended,
6  vaString,
7  vaIdent,
8  vaFalse,
9  vaTrue,
10 vaBinary,
11 vaSet,
12 vaLString,
13 vaNil,
14 vaCollection,
15 vaSingle,
16 vaCurrency,
17 vaDate,
18 vaWString

);