Uso de variables tipo Variant

[Enan0]

Hola Delphi trae toda una coleccion de funciones para manejar eso:

COn

function VarArrayDimCount(const A: Variant): Integer;

Description

VarArrayDimCount returns the number of dimensions of the given Variant. The resulting value is zero if the given Variant is not a Variant array.

TE devuelve la Dimiencion del Array
y con.

function VarArrayHighBound(const A: Variant; Dim: Integer): Integer;

Description

VarArrayHighBound returns the high bound of the given dimension in the given Variant array. The Dim parameter should be 1 for the leftmost dimension, 2 for the second leftmost dimension, and so on. An EVariantError exception is raised if the Variant given by A is not an array, or if the dimension specified by Dim does not exist.

La Longitud
luego deberias aplicar un FOR como de dijo dec

Saludos