5ボタンマウスの第4,5ボタンクリック

Egg Explorerに5ボタンマウス設定を追加しようとしたんだがメッセージが受け取れない。何故だ！！
サンプルでの動作は問題ないんだがなあ。

const
  WM_XBUTTONDOWN = $020B;
  WM_XBUTTONUP = $020C;
  WM_XBUTTONDBLCLK = $020D;
  XBUTTON1 = $0001;
  XBUTTON2 = $0002;

procedure TForm1.WndProc(var Message: TMessage);
begin
  inherited WndProc(Message);
  try
    case Message.Msg of
      WM_XBUTTONUP:
        begin
          //s_DebugMsg('WM_XBUTTONUP');

          case Message.WParamHi of
            XBUTTON1:
              begin
                s_DebugMsg('XBUTTON1');
              end;
            XBUTTON2:
              begin
                s_DebugMsg('XBUTTON2');
              end;
          end;
        end;
    end;
  except
    Application.HandleException(Self);
  end
end;