这个Delphi控件鼠标捕捉怎么用的?

在网上抄的代码,不知道在Delphi中如何操作,才能输入以下代码?好像是鼠标滚动代码,我不知道如何操作,才能让下面代码起作用?
Delphi(Pascal) code:

procedure TForm1.SetLabelCaption( ANum: Integer );
begin
Label1.Caption := IntToStr( ANum );
end;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
Rotation: ShortInt;
begin
if Msg.message = WM_MOUSEWHEEL then
begin
Rotation := HIWORD( Msg.wParam );
if Rotation > 0 then
Inc( Num )
else
Dec( Num );
SetLabelCaption( Num );
Handled := True;
end;
end;

---

Delphi(Pascal) code:

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := ApplicationEvents1Message;
end;

---

代码不全，看不明白。最好贴上一整段。

---

http://hi.baidu.com/hellowzr/blog/item/1ef01901230be98fe850cda8.html
关于 TApplicationEvents.OnMessage 的

---

引用

Delphi(Pascal) codeprocedure TForm1.FormCreate(Sender: TObject);begin
  Application.OnMessage := ApplicationEvents1Message;end;

正解，不过效率不怎么样。

---

学习

---

procedure TForm1.ApplicationEvents1Message(var Msg