create variant array where we'll copy our data} arrData := VarArrayCreate([1, StringGrid2.RowCount, 1, StringGrid2.ColCount], varVariant); {fill array} for i := 1 to StringGrid2.RowCount do for j := 1 to StringGrid2.ColCount do arrData