TLinkLabel 超链接

TLinkLabel 超链接求助
哪位大哥教我怎么用TLinkLabel做超链接访问www.baidu.com呢？
谢谢！！！

[解决办法]

Delphi(Pascal) code

procedure TForm1.LinkLabel1LinkClick(Sender: TObject; const Link: string;  LinkType: TSysLinkType);begin  //这句是重点  ShellExecute(Handle,'OPEN',PChar(Link),nil,nil,SW_NORMAL);end;
[解决办法]
學習了