StringGrid и события OnMouseWheelUp и OnMouseWheelDown

void __fastcall TForm1::StringGrid1MouseWheelDown(TObject *Sender,
      TShiftState Shift, TPoint &MousePos, bool &Handled)
{
   ShowMessage("down");
}
 
void __fastcall TForm1::StringGrid1MouseWheelUp(TObject *Sender,
      TShiftState Shift, TPoint &MousePos, bool &Handled)
{
  ShowMessage("up");
}

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TStringGrid *StringGrid1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::StringGrid1MouseWheelDown(TObject *Sender,
      TShiftState Shift, TPoint &MousePos, bool &Handled)
{
   ShowMessage("down");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::StringGrid1MouseWheelUp(TObject *Sender,
      TShiftState Shift, TPoint &MousePos, bool &Handled)
{
  ShowMessage("up");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    StringGrid1 = new TStringGrid(this);
    StringGrid1->Parent= Form1;
    StringGrid1->RowCount=100;
    StringGrid1->Width=1000;
    StringGrid1->Height=500;
    StringGrid1->OnClick=StringGrid1Click;
    StringGrid1->OnMouseWheelDown=StringGrid1MouseWheelDown;
    StringGrid1->OnMouseWheelUp=StringGrid1MouseWheelUp;
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1Click(TObject *Sender)
{
ShowMessage("Click");        
}
//-