Overfør data fra stringgrid til Excel

Hej
Jeg har en stringgrid der består af 36 celler og et varierende antal rækker som jeg læser data ind i.

Jeg har denne procedure som overfører alle celler til et array og derefter over til excel, og det virker fint
{create variant array where we'll copy our data}
  arrData := VarArrayCreate([1,sgdata.RowCount, 1, sgdata.ColCount], varVariant);

  {fill array}
for i := 1 to sgdata.RowCount do
    for j := 1 to sgdata.ColCount do
  arrData[i, j] := sgdata.Cells[j-1, i-1];

{initialize an instance of Excel}
xls := CreateOLEObject('Excel.Application');

{create workbook}
wb := xls.Workbooks.Add;

{retrieve a range where data must be placed}
Range := wb.WorkSheets[1].Range[wb.WorkSheets[1].Cells[1, 1], wb.WorkSheets[1].Cells[sgdata.RowCount, sgdata.ColCount]];
{copy data from allocated variant array}
Range.Value := arrData;

{show Excel with our data}
xls.Visible := True;
end;
end;

Men jeg vil kun udlæst 10 af cellerne til excel, hvordan gør jeg det.