[Alegun]

Не совсем то, что требуется, переход не точно по записям, но вот пример прокрутки с подкладкой глобальной процедуры колёсика

Код:

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
 if WindowFromPoint(MousePos) = DBCtrlGrid1.Handle then
  if WheelDelta > 0 then
   DBCtrlGrid1.Perform(WM_VScroll, SB_LINEUP, 0)
    else
     DBCtrlGrid1.Perform(WM_VScroll, SB_LINEDOWN, 0);
end;