送分！怎样做“类似网页链接可点击弹开浏览指定网址”(20分)

我想在“系统关于”中做一个如上的功能，
不知道各位大富翁是否有比较简单的方法可实现。

先在一个窗体中加入一个Label1，加入下列代码
procedure TForm1.Label1MouseMove(Sender: TObject;shift:Tshiftstate;x,y:integer);
begin
Label1.Font.Style:=[fsbold,fsunderline];
Label1.Font.Color:=clYellow;
end;

procedure TForm1.FormMouseMove(Sender: TObject;shift:Tshiftstate;x,y:integer);
begin
Label1.Font.Style:=[fsbold];
Label1.Font.Color :=clmaroon;
end;

procedure TForm1.Label1Click(Sender: TObject);

begin
Shellexecute(handle,nil,pchar('mailto:guihong@163.net'),nil,nil,sw_shownormal);
end;
再将Label1.Cursor设为crHandPoint，Label1的OnMouseMove事件设为Label1MouseMove， Form1的OnMouseMove事件设为FormMouseMove，Label1的OnClick事件设为Label1Click，那么就这种效果了。

To zhaohai9:
我刚按照你说的办法去做了一个。但是执行不了，在编译的时候出现如下提示：
"[Error] Unit1.pas(48): Undeclared identifier: 'Shellexecute'"
要怎么解决？

在此程序上!，找到uses 后面加上shellapi就可以了!

最好不要放在ONMOUSEMOVE事件中，最好放在Label的OnMouseEnter和OnMouseExit.

To 太阳火
为什么"最好不要放在ONMOUSEMOVE事件中，最好放在Label的OnMouseEnter和OnMouseExit"?

谢谢各位高人指点。谢谢！