Workbook.Worksheets[1].Range['A5', 'A5'].Hyperlinks[1].ScreenTip := 'New ScreenTip';
Workbook.Worksheets[1].Range['A1', 'F5'].Hyperlinks.Delete;