Source position: grids.pas line 782
protected function TCustomGrid.DoMouseWheelUp(
Shift: TShiftState;
MousePos: TPoint
):Boolean; override;