请问一个很菜的问题：）(5分)

我想在软件中aboutbox对话框中加入我的e-mail，而且当用鼠标点击此时，会自动启动
outlook express,请问怎么实现，谢谢了先：）

procedure MailTo(URL: Pchar);
begin
ShellExecute(0,nil,URL,nil,nil,SW_NORMAL);
end;
调用方法:
MailTo(Pchar("Mailto:xxx@xxx.com"));

procedure TAboutBox.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Font.Color :=clBlue;
end;

procedure TAboutBox.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Font.Style:=[fsbold,fsunderline];
Label1.Font.Color:=clYellow;
end;
procedure TAboutBox.Label1Click(Sender: TObject);
begin
ShellExecute(handle,nil,pchar('Mailto:xxx@xxx.com'),
nil,nil,SW_SHOWMAXIMIZED);
end;

有现成的构件

多人接受答案了。