当前被选中的行应该就是Table中的当前记录，可以通过recno确定吧
对label1,label2.....好像不能直接通过循环来控制，可以用控件数组来控制
保存到数组，似乎应该在定义数组时做些手脚,看看下面的帮助吧，也许对你有用
You cannot assign an ordinary static array to a variant. Instead, create a variant array by calling either of the standard functions VarArrayCreate or VarArrayOf. For example,
V: Variant;
...
V := VarArrayCreate([0,9], varInteger);
creates a variant array of integers (of length 10) and assigns it to the variant V. The array can be indexed using V[0], V[1], and so forth, but it is not possible to pass a variant array element as a var parameter. Variant arrays are always indexed with integers.
The second parameter in the call to VarArrayCreate is the type code for the array’s base type. For a list of these codes, see VarType. Never pass the code varString to VarArrayCreate; to create a variant array of strings, use varOleStr.
Variants can hold variant arrays of different sizes, dimensions, and base types. The elements of a variant array can be of any type allowed in variants except ShortString and
AnsiString, and if the base type of the array is Variant, its elements can even be heterogeneous. Use the VarArrayRedim function to resize a variant array. Other standard routines that operate on variant arrays include VarArrayDimCount, VarArrayLowBound, VarArrayHighBound, VarArrayRef, VarArrayLock, and VarArrayUnlock.
When a variant containing a variant array is assigned to another variant or passed as a value parameter, the entire array is copied. Don’t perform such operations unnecessarily, since they are memory-inefficient.
