DBGrid에서 마우스 휠을 움직이게 되면 포인터가 움직이지 않는것을 확인 하실 수 있습니다.
즉 정상작동이 아니란 말이죠.

cpp 파일에

void __fastcall TForm1::MouseWheelHandler(Messages::TMessage &Message)
{
    if (Message.Msg == WM_MOUSEWHEEL){
        if (dynamic_cast<TDBGrid *>(ActiveControl)){
            if (Message.WParam > 0){
                keybd_event(VK_UP, VK_UP, 0, 0);
            }
            else if (Message.WParam < 0){
                keybd_event(VK_DOWN, VK_DOWN, 0, 0);
            }
        }
    }
}

그리고 h 파일의 private에 (물론 public도 상관은 없습니다 ^^)

DYNAMIC void __fastcall TForm1::MouseWheelHandler(Messages::TMessage &Message);

위와 같이 적어주면 아주 훌륭하게(?) 동작한답니다.

간단하죠? ^^;