关于鼠标滚轮消息的编程,请教各位.(50分)

我自己写了一个控件,如下:
TCustomDraw = class(TCustomControl)
private
procedure CMMouseWheel(var Message: TCMMouseWheel); message CM_MOUSEWHEEL;
procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;
end;

procedure TCustomDraw.WMMouseWheel(var Message: TWMMouseWheel);
begin
MoveToMapCenter(Message.WheelDelta);//根据滚动的上下方向缩放地图
end;

procedure TCustomDraw.CMMouseWheel(var Message: TCMMouseWheel);
begin
MoveToMapCenter(Message.WheelDelta);//根据滚动的上下方向缩放地图
end;

我想在控件内利用滚轮进行地图的缩放,可是当我利用VCL的消息截取机制通过上述方式截取消息时,程序却没有任何反映,即我的截取消息是不成功的,单步跟踪也执行不到断点处,请问这是为何啊?我应该如何实现我的需求呢.