delphi 加入超链接

delphi 加入超链接
//在uses中加入ShellAPI
//通过该lpFile参数可以实现链接到主页或ftp站点

ShellExecute(handle,nil,pchar('http://www.cumt.edu.cn'),nil,nil,sw_ShowNormal);

使超链接字体的颜色改变加入代码：
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Font.Style:=[fsbold,fsunderline]; //加粗、加下划线；
Label1.Font.Color:=clBlue; //字体颜色
end;