FormMouseWheel Event und ScrollBar

[Ronco11]

Hallo,

mit folgendem Code auf einem jungfräulichen Formular wird step jeweils um 1 erhöht oder verringert, je nach Richtung des MouseWheel beim Drehen um eine Raste (pro Raste ein Event).

Warum wird aber FormMouseWheelDown oder FormMouseWheelUp zweimal aufgerufen wenn ich eine ScrollBar Komponente auf das Formular setze (pro Raste 2 Events) ?

__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
 step = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseWheelDown(TObject *Sender, TShiftState Shift, TPoint &MousePos,
		  bool &Handled)
{
 step++;
 Label1->Caption = IntToStr( step );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseWheelUp(TObject *Sender, TShiftState Shift, TPoint &MousePos,
		  bool &Handled)
{
 step--;
 Label1->Caption = IntToStr( step );
}
//---------------------------------------------------------------------------