怎样在窗体加入链接，邮箱

窗体添加一个label;

uses ShellAPI;

procedure TForm1.FormCreate(Sender: TObject);
begin
  label1.Transparent := true;
  label1.Caption := 'www.baidu.com';
  label1.Font.Color := clBlue;
  label1.Font.Size := 14;
  label1.Font.Style := [fsUnderline];
  label1.Cursor := crDefault;
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  label1.Cursor := crHandPoint;
  label1.Font.Style := [];
  label1.Font.Color := clRed;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  label1.Cursor := crDefault;
  label1.Font.Style := [fsUnderline];
  label1.Font.Color := clBlue;
end;

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ShellExecute(Handle,'open','http://www.baidu.com',nil,nil,SW_SHOWNORMAL);
end;

==========================================

这里报Undeclared identifier:ShellExecute,

在窗体的uses 里加入：Shellapi便可以解决。