Cargar un excel en un TStringGrid

Hace unos meses os entretuve con Copy-paste de un Excel a un TStringGrid, pues bien, en éste post os muestro la mejora de un código de SwissDelphiCenter (por cierto, muy buen sítio para encontrar pedazos de código muy útiles en delphi) dónde se utiliza un objeto OLE (Object linking and Embedding) para cargar los datos de una hoja de excel y meterlos en un TStringGrid. Para éste ejemplo, crearé una tabla de excel llamada table1.xls y la llenaré con números aleatorios mediante la fórmula ALEATORIO.ENTRE(0;100) que me entregará un número aleatorio entre los valores 0 y 100. Muy útil para generar información aleatoria.
El resultado final es el siguiente:

El problema de trabajar con OLE es que hay que tener en cuenta de que realmente se llama a la aplicación y puede ser que a veces se quede en segundo plano roncando sin que nos demos cuenta y con el fichero abierto. Por eso hay que vigilar y siempre cerrar la aplicación.

Aquí os dejo el código fuente:

uses
    ComObj;

type
    TForm1 = class(TForm)
        StringGrid1: TStringGrid;
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
    private
        { Private declarations }
    public
        { Public declarations }
    end;

var
    Form1: TForm1;

implementation

{$R *.dfm}

function Load_Excel_To_TStringGrid(StringGrid: TStringGrid; ExcelFile: string): Boolean;
const
    xlCellTypeLastCell = $0000000B;
var
    ExcelApp, Sheet: OLEVariant;
    RangeSheet: Variant;
    Row, Col, i, j: Integer;
begin
    Result := False;
    ExcelApp := CreateOleObject('Excel.Application');
    try
        ExcelApp.Visible := False;
        ExcelApp.Workbooks.Open(ExcelFile);
        Sheet := ExcelApp.Workbooks[ExtractFileName(ExcelFile)].WorkSheets[1];
        Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;
        Row := ExcelApp.ActiveCell.Row;
        Col := ExcelApp.ActiveCell.Column;
        StringGrid.RowCount := Row;
        StringGrid.ColCount := Col;
        RangeSheet := ExcelApp.Range['A1', ExcelApp.Cells.Item[Row, Col]].Value;
        i := 1;
        repeat
            for j := 1 to Col do
                StringGrid.Cells[(j - 1), (i - 1)] := RangeSheet[i, j];
            Inc(i, 1);
            StringGrid.RowCount := i + 1;
        until i > Row;
        RangeSheet := Unassigned;
    finally
        if not VarIsEmpty(ExcelApp) then
        begin
            ExcelApp.Save;
            ExcelApp.Quit;
            ExcelApp := Unassigned;
            Sheet := Unassigned;
            Result := True;
        end;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    if Load_Excel_To_TStringGrid(StringGrid1, ExtractFilePath(ParamStr(0)) + '\Table1.xls') then
        ShowMessage('Table has been loaded!');
end;

end.