[NumLock]

Код:

type
  TStringGrid = class(Grids.TStringGrid)
  protected
    procedure WMMOUSEWHEEL(var Msg: TMessage); message WM_MOUSEWHEEL;
  end;

procedure TStringGrid.WMMOUSEWHEEL(var Msg: TMessage);
begin
  Msg.Result:=0;
end;