Событие на прокрутку колёсиком мыши

[mental]

собственно как реализовать?
mouseup, mousedown - не годится.

[chertovich]

OnMouseWheelUp, и соотвественно Down
Но, наверное, у вас этого события и нету, раз не нашли)
Какой элемент управления и наследник чего?

[puporev]

А MouseWheel формы?

[mental]

DbGrid, такого события нет.

[mss]

Есть, просто это св-во защищенное.
Следует воспользоваться дружественным классом для доступа к нему.

type
    TFriendControl = class(TControl);
..
procedure TMyForm.GridMouseWheelHandler(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
  Step: Integer;
  DataSet: TDataSet;
begin
  DataSet := TDBGrid(Sender).DataSource.DataSet;
  if not DataSet.Active then Exit;
  Step := WheelDelta div 120;
  DataSet.MoveBy(-Step);
  Handled := True;
end;

..
TFriendControl(MyDBGrid).OnMouseWheel := GridMouseWheelHandler;
..