uses
...., ComObj;


procedure TfrmMainForm.DataLoad(FileName: string; arFile: Pointer);
var
  XL, Workbook, Sheet: OleVariant;
begin
    XL := CreateOleObject('Excel.Application');
    XL.DisplayAlerts := False;
    XL.Visible := True;
    Workbook := XL.WorkBooks.Open(FileName);
    Sheet := Workbook.WorkSheets[1];
....
    Sheet := Unassigned;
    Workbook.Close;
    Workbook := Unassigned;
    XL.Quit;
    XL := Unassigned;
end;

procedure TfrmMainForm.DataLoad(FileName: string; arFile: Pointer);
var
  XL, Workbook, Sheet: OleVariant;
  str: string;
  RefStyle, x, y, rows: Integer;
  ar: array of array[0..12] of string;
const
  head: Integer = 3;
begin
  try
    rows := 0;
    XL := CreateOleObject('Excel.Application');
    XL.DisplayAlerts := False;
    XL.Visible := True;
    RefStyle := XL.ReferenceStyle;
    XL.ReferenceStyle := -4150;
    Workbook := XL.WorkBooks.Open(FileName);
    Sheet := Workbook.WorkSheets[1];
    Sheet.Cells.Replace(What:='«', Replacement:='"');
    Sheet.Cells.Replace(What:='»', Replacement:='"');
    repeat
      Inc(rows);
      str := Sheet.Cells[rows+head, 1];
    until str = '';
    Dec(rows);
    Sheet.Range[Sheet.Cells[head+1, 1], Sheet.Cells[head+rows, 12]].UnMerge;
    Sheet.Range[Sheet.Cells[head+1, 1], Sheet.Cells[head+rows, 12]].Sort(Key1:=Sheet.Columns[3], Order1:=1, Key2:=Sheet.Columns[9], Key3:=Sheet.Columns[10]);
    Pointer(ar) := arFile;
    SetLength(ar, rows);
    for y := head+1 to head+rows do
      for x := 1 to 12 do
        begin
          ar[y-head-1,x-1] := Sheet.Cells[y, x];
        end;
    ar := nil;
    XL.ReferenceStyle := RefStyle;
    Sheet := Unassigned;
    Workbook.Close;
    Workbook := Unassigned;
    XL.Quit;
    XL := Unassigned;
  except

  end;
end;

Sheet.Range[Sheet.Cells[head+1, 1], Sheet.Cells[head+rows, 12]].UnMerge;
 Sheet.Range[Sheet.Cells[head+1, 1], Sheet.Cells[head+rows, 12]].Sort(Key1:=Sheet.Columns[3], Order1:=1, Key2:=Sheet.Columns[9], Key3:=Sheet.Columns[10]);

procedure TfrmMainForm.DataLoad1(FileName: string);
var
XL, Workbook, Sheet, Rng: OleVariant;
str: string;
RefStyle, x, y, rows: Integer;
ar: array of array[0..12] of string;
const
head: Integer = 3;
begin
XL := CreateOleObject('Excel.Application');
XL.DisplayAlerts := False;
XL.Visible := True;
RefStyle := XL.ReferenceStyle;
XL.ReferenceStyle := -4150;
Workbook := XL.WorkBooks.Open(FileName);
Sheet := Workbook.WorkSheets[1];
Sheet.Cells.Replace(What:='«', Replacement:='"');
Sheet.Cells.Replace(What:='»', Replacement:='"');
repeat
Inc(rows);
str := Sheet.Cells[rows+head, 1];
until str = '';
Dec(rows);
Rng := Sheet.Range[Sheet.Cells[head+1, 1], Sheet.Cells[head+rows, 12]];
Rng.UnMerge;
//Rng.Sort(Key1:=Sheet.Columns[3], Order1:=1, Key2:=Sheet.Columns[9], Key3:=Sheet.Columns[10]);
Sleep(10000);
XL.ReferenceStyle := RefStyle;
Rng := Unassigned;
Sheet := Unassigned;
Workbook.Close;
Workbook := Unassigned;
XL.Quit;
XL := Unassigned;
end;

procedure TfrmMainForm.DataLoad1(FileName: string);
var
XL, Workbook, Sheet, Rng: OleVariant;
str: string;
RefStyle, x, y, rows: Integer;
const
head: Integer = 3;
begin
XL := CreateOleObject('Excel.Application');
XL.DisplayAlerts := False;
XL.Visible := True;
Workbook := XL.WorkBooks.Open(FileName);
Sheet := Workbook.WorkSheets[1];
rows := 5;
Rng := Sheet.Range[Sheet.Cells[head+1, 1], Sheet.Cells[head+rows, 12]];
Rng.UnMerge;
//Sleep(10000);
Rng := Unassigned;
Sheet := Unassigned;
Workbook := Unassigned;
XL.Quit;
XL := Unassigned;
end;

uses
..., ComObj, ActiveX;

var
XL, Workbook, Sheet, Rng: OleVariant;
begin
CoInitialize(nil);
XL := CreateOleObject('Excel.Application');
Workbook := XL.WorkBooks.Open(FileName);
Sheet := Workbook.WorkSheets[1];
Rng := Sheet.Range['A'+IntToStr(1+head)+':L'+IntToStr(rows+head)];
//но не
//Rng := Sheet.Range[Sheet.Cells[4, 1], Sheet.Cells[8, 12]];
...
Rng := Unassigned;
Sheet := Unassigned;
Workbook.Close;
Workbook := Unassigned;
XL.Quit;
XL := Unassigned;
CoUnInitialize;
end;

var
  XL, Workbook, Sheet, Range, SortKey: OleVariant;

....
Range := Sheet.Range['A'+IntToStr(1+head)+':L'+IntToStr(rows+head)];
    Range.UnMerge;
    Sheet.Sort.SortFields.Clear;
    SortKey := Sheet.Range['C'+IntToStr(1+head)];
    Sheet.Sort.SortFields.Add(Key:=SortKey, SortOn:=0, Order:=1, DataOption:=0);
    SortKey := Sheet.Range['E'+IntToStr(1+head)];
    Sheet.Sort.SortFields.Add(Key:=SortKey, SortOn:=0, Order:=1, DataOption:=0);
    SortKey := Sheet.Range['J'+IntToStr(1+head)];
    Sheet.Sort.SortFields.Add(Key:=SortKey, SortOn:=0, Order:=1, DataOption:=0);
    Sheet.Sort.SetRange(Range);
    Sheet.Sort.Apply;
....
SortKey := Unassigned;
    Range := Unassigned;
    Sheet := Unassigned;
    Workbook.Close;
    Workbook := Unassigned;
    XL.Quit;
    XL := Unassigned;
    CoUnInitialize;