Delphi Label Click IE Url

Click Event
ShellExecute(Application.Handle,'open','http://happyintime.blogspot.com',nil,nil,SW_SHOWNORMAL);

Label's property 底線藍字 手滑鼠指標
Set Font.Color:clBlue
Set Font.Style:[fsUnderline]
Set Cursor crHandPoint