Загрузить данные из Excel в StringGrid

unit UnitXLS;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComObj, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGridXLS: TStringGrid;
    OpenDialogXLS: TOpenDialog;
    ButtonOpenXLS: TButton;
    procedure ButtonOpenXLSClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure Xls_Open(XLSFile:string; Grid:TStringGrid);
 const
  xlCellTypeLastCell = $0000000B;
var
  ExlApp, Sheet: {OLE}Variant;
  i, j, r, c:integer;
begin
  ExlApp := CreateOleObject('Excel.Application');
  ExlApp.Visible := false;
  ExlApp.Workbooks.Open(XLSFile);
  Sheet := ExlApp.Workbooks[ExtractFileName(XLSFile)].WorkSheets[1];
  Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;
  r := ExlApp.ActiveCell.Row;
  c := ExlApp.ActiveCell.Column;
  Grid.RowCount:=r;
  Grid.ColCount:=c;
  for j:= 1 to r do
    for i:= 1 to c do begin
      try
        if not VarIsNull(sheet.cells[j,i]) then
          Grid.Cells[i-1,j-1]:= VarToStr(sheet.cells[j,i])
        else
          Grid.Cells[i-1,j-1]:= '';
      finally
      end;
    end;
  ExlApp.Quit;
  ExlApp := Unassigned;
  Sheet := Unassigned;
end;
 
 
procedure TForm1.ButtonOpenXLSClick(Sender: TObject);
begin
  If OpenDialogXLS.Execute then
   Xls_Open (OpenDialogXLS.FileName, StringGridXLS);
end;
 
end.