Копирование из Variant массива в массив обычного типа

ar
  Form2: TForm2;
  Excel: Variant;
  FileName:TFileName;
   MyMass: Variant;
      Mass: array of array of Double;
 type
  TDoubleArray = array of array of Double;

procedure TForm2.Button3Click(Sender: TObject);
const
   xlCellTypeLastCell = $0000000B;
var
   ExcelApp, ExcelSheet: OLEVariant;
 
   x, y: Integer;
begin
   // создание OLE-объекта Excel
   ExcelApp := CreateOleObject('Excel.Application');
 
   // открытие книги Excel
   ExcelApp.Workbooks.Open('C:\DELPHI\Синусоида\test3\XY.xlsx');
 
   // открытие листа книги
   ExcelSheet := ExcelApp.Workbooks[1].WorkSheets[1];
 
   // выделение последней задействованной ячейки на листе
   ExcelSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate;
 
   // получение значений размера выбранного диапазона
   x := ExcelApp.ActiveCell.Row;
   y := ExcelApp.ActiveCell.Column;
 
   // присвоение массиву диапазона ячеек на листе
   MyMass := ExcelApp.Range['A1', ExcelApp.Cells.Item[X, Y]].Value;
 
   // закрытие книги и очистка переменных
   ExcelApp.Quit;
   ExcelApp := Unassigned;
   ExcelSheet := Unassigned;
   // назначение размера StringGrid по размеру полученного диапазона ячеек
StringGrid1.RowCount := x;
StringGrid1.ColCount := y;
 
// заполнение таблицы StringGrid значениями массива
for x := 1 to StringGrid1.ColCount do
  for y := 1 to StringGrid1.RowCount do
      StringGrid1.Cells[x-1, y-1] := MyMass[y, x];
end;

unction VarToArrayInt(const V: Variant): TDoubleArray;
var
  I: integer;
begin
  if VarIsArray(V) then begin
    SetLength(Result, VarArrayHighBound(V, 1) + 1);
    for I:= 0 to High(Result) do Result[I]:= V[I];
  end else begin
    SetLength(Result, 1);
    Result[0]:= V;
  end;
end;
procedure TForm2.Button4Click(Sender: TObject);
  var  x,y :integer;
  begin
   for x := 1 to StringGrid1.ColCount -1 do
  for y := 1 to StringGrid1.RowCount -1 do
   Begin
     mass[y,x]:=MyMass[y,x];
     memo1.Lines.Add(FloatToStr(mass[x,y]));
 
end;