Не совсем то, что требуется, переход не точно по записям, но вот пример прокрутки с подкладкой глобальной процедуры колёсика
Код:
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;