拦截WM_NCHITTEST消息进行处理后.图片相关控件(如TImage)的事件失效了

拦截WM_NCHITTEST消息进行处理后.图片相关控件(如TImage)的事件(如OnClick)失效了.希望达人帮忙...
    procedure FormMoveAsHit(var Msg: TWMNCHitTest); message WM_NCHITTEST;
procedure TDefaultForm.FormMoveAsHit(var Msg: TWMNCHitTest);
const
  CanMoveRect = 3;
var
  MousePoint: TPoint;
begin
  inherited;
  MousePoint := ScreenToClient(Point(Msg.XPos, Msg.YPos));
  if PtInRect(Rect(0, 0, CanMoveRect, CanMoveRect), MousePoint) then
    Msg.Result := HTTOPLEFT
  else if PtInRect(Rect(Width - CanMoveRect, Height - CanMoveRect, Width, Height), MousePoint) then
    Msg.Result := HTBOTTOMRIGHT
  else if PtInRect(Rect(Width - CanMoveRect, 0, Width, CanMoveRect), MousePoint) then
    Msg.Result := HTTOPRIGHT
  else if PtInRect(Rect(0, Height - CanMoveRect, CanMoveRect, Height), MousePoint) then
    Msg.Result := HTBOTTOMLEFT
  else if PtInRect(Rect(CanMoveRect, 0, Width - CanMoveRect, CanMoveRect), MousePoint) then
    Msg.Result := HTTOP
  else if PtInRect(Rect(0, CanMoveRect, CanMoveRect, Height - CanMoveRect), MousePoint) then
    Msg.Result := HTLEFT
  else if PtInRect(Rect(Width - CanMoveRect, CanMoveRect, Width, Height - CanMoveRect), MousePoint) then
    Msg.Result := HTRIGHT
  else if PtInRect(Rect(CanMoveRect, Height - CanMoveRect, Width - CanMoveRect, Height), MousePoint) then
    Msg.Result := HTBOTTOM
  else if PtInRect(Image_TopMid.ClientRect, MousePoint) then
    Msg.Result := HTCAPTION
  else if PtInRect(BtnMinimize.ClientRect, MousePoint) then
    Msg.Result := HTMINBUTTON
  else if PtInRect(BtnMaximize.ClientRect, MousePoint) then
    Msg.Result := HTMAXBUTTON
  else if PtInRect(BtnClose.ClientRect, MousePoint) then
    Msg.Result := HTCLIENT;
end;