procedure TForm1.Button1Click(Sender: TObject);
var
Excel: OleVariant;
Libro: OleVariant;
Hoja: OleVariant;
begin
Excel := ComObj.CreateOleObject('Excel.Application');
Libro := Excel.Workbooks.Open('C:\ruta\al\archivo.xls');
Hoja := Libro.ActiveSheet;
Excel.Visible := true;
ShowMessage(Hoja.Cells[2, 'B'].Hyperlinks[1].Address);
end;