Source position: grids.pas line 917
protected function TCustomGrid.DoMouseWheel(
Shift: TShiftState;
WheelDelta: Integer;
MousePos: TPoint
):Boolean; override;