Leer el hyperlik de una celda en un archivo de excel

[olbeup]

En la parte de arriba donde están los Uses, incluye también el (ComObj)

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Excel, Libro, Hoja: OleVariant;
begin
  Excel := CreateOleObject('Excel.Application');

  Libro := Excel.WorkBooks.Open('C:\ruta\al\archivo.xls');

  Hoja := Libro.ActiveSheet;

  Excel.Visible := False;

  ShowMessage(Hoja.Cells[2, 'B'].Hyperlinks[1].Address);
end;