BCB打开超链接的问题

BCB中，想在RichEdit中打开已经显示为超链接的网页地址。激发事件是当鼠标放在超链接上且已变为手型，按下即可打开网页。下面的代码我已经输入且编译运行了，但是不能打开超链接。
在窗体的构造函数中添加以下代码：
__fastcall TMainForm::TMainForm(TComponent* Owner)
: TForm(Owner)
{
unsigned mask = SendMessage(RichEdit1->Handle, EM_GETEVENTMASK, 0, 0);
SendMessage(RichEdit1->Handle, EM_SETEVENTMASK, 0, mask | ENM_LINK);
SendMessage(RichEdit1->Handle, EM_AUTOURLDETECT, true, 0); //自动检测URL

RichEdit1->Text = "欢迎访问C Builder/n"
"网址: http://www.ccrun.com/n"
"偶的信箱:/n"
"mailto::info@ccrun.com /n"
"嘿嘿/n";
}

重载窗体的WndProc

1。在.h中添加：

protected:
virtual void __fastcall WndProc(Messages::TMessage &Message);

2。在.cpp中添加：
//---------------------------------------------------------------------------
void __fastcall TMainForm::WndProc(Messages::TMessage &Message)
{
if (Message.Msg == WM_NOTIFY)
{
if (((LPNMHDR)Message.LParam)->code == EN_LINK) 对真正的成功者来说，不论他的生存条件如何，都不会自我磨灭
{
ENLINK* p = (ENLINK *)Message.LParam;
if (p->msg == WM_LBUTTONDOWN)
{
SendMessage(RichEdit1->Handle, EM_EXSETSEL, 0, (LPARAM)&(p->chrg));
ShellExecute(Handle, "open", RichEdit1->SelText.c_str(), 0, 0, SW_SHOWNORMAL);
}
}
}
TForm::WndProc(Message);

 

 

PS：重载窗体的WndProc是啥意思啊？
}