[lmikle]

Госпадя!!!
Ну надо 30 минут, что бы из кусочков в теме собрать нужный код и отладить его:

Код:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ComObj, Vcl.StdCtrls;

type
  TInt2dArray = Array Of Array Of Integer;

  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ReadInt2dArrayFromExcel(AFileName : String; ASheet, AStartCol, AStartRow, ANan : Integer; var Result : TInt2dArray);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
  xlsFile : String = 'c:\Work\test.xls';
var
  arr : TInt2dArray;
  I, J : Integer;
begin
  Memo1.Clear;
  SetLength(arr,2);
  For I := Low(arr) To High(arr) Do
    SetLength(arr[i],5);

  ReadInt2dArrayFromExcel(xlsFile,1,2,2,-1,arr);
  For J := Low(arr[0]) To High(arr[0]) Do
    Memo1.Lines.Add(Format('%d  %d',[arr[0,J], arr[1,J]]));
end;

procedure TForm1.ReadInt2dArrayFromExcel(AFileName : String; ASheet, AStartCol, AStartRow, ANan : Integer; var Result : TInt2dArray);
var
  ExcelApp : Variant;
  WorkBook : Variant;
  WorkSheet : Variant;
  I, J : Integer;
begin
  // Check buffer size
  If (0 = Length(Result)) Or (0 = Length(Result[Low(Result)])) Then
    Raise Exception.Create('Buffer is not configured (cols or rows or both are equal to 0)');

  // Now open Excel and read data into array
  Try
    ExcelApp := CreateOleObject('Excel.Application');
    WorkBook := ExcelApp.Workbooks.Open(AFileName);
    Worksheet := WorkBook.Worksheets[ASheet];

    For I := Low(Result) To High(Result) Do
      For J := Low(Result[i]) To High(Result[i]) Do
        Begin
          Result[I,J] := StrToIntDef(Worksheet.Cells[AStartRow + J, AStartCol + I].Value, ANan);
        End;
    ExcelApp.Quit;
  Finally
    Worksheet := varNull;
    WorkBook := varNull;
    ExcelApp := varNull;
  End;
end;

end.

Параметры функции:
AFileName - полный путь к файлу
ASheet - номер страницы, начинается с 1
AStartCol, AStartRow - первые колонка и строка в экселе с данными
ANan - значение для подстановки, если в ячейке не целое число
Result - массив, куда писать