[Zhigalov]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
   FData,E0,E1,B0,B1: OLEVariant;
   path : String;
begin
  E0 := CreateOleObject('Excel.Application');
  E0.DisplayAlerts := False ;
  E0.Workbooks.Open(path);
  B0:=E0.ActiveWorkbook.ActiveSheet;
  FData:=B0.UsedRange.Value;
           E0.Quit;
   E0:=unassigned;
   B0:=unassigned;

  E1 := CreateOleObject('Excel.Application');
  E1.Workbooks.Add;
  B1:=E1.ActiveWorkbook.ActiveSheet;
  E1.Range['A4:J4']:= FData;
  E1.Visible := True;
end;

В FData находится матрица
11 12 13 14 15
21 22 23 24 25
31 32 33 34 35
41 42 43 44 45
51 52 53 54 55

Как в

Код:

E1.Range['A4:J4']:= FData;

Получить N-ю строку матрицы , допустим 4.