1:

ExcelInstanz.Range['Zell1', 'Zell2'].Value;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

RangeMatrix := XLApp.Range['A1', XLApp.Cells.Item[X, Y]].Value; 
//  Define the loop for filling in the TStringGrid 
k := 1; 
repeat 
  for r := 1 to y do 
    AGrid.Cells[(r - 1), (k - 1)] := RangeMatrix[K, R]; 
  Inc(k, 1); 
  AGrid.RowCount := k + 1; 
until k > x; 
// Unassign the Delphi Variant Matrix 
RangeMatrix := Unassigned;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

k := 1; 
for r := 1 to y do 
begin
  RangeMatrix := XLApp.Range['A' + IntToStr(R)].Value; 
  AGrid.Cells[(r - 1), (k - 1)] := RangeMatrix; 
end;
AGrid.RowCount := k; 
// Unassign the Delphi Variant Matrix 
RangeMatrix := Unassigned;