DoMouseWheelDown и DoMouseWheelUp в DBGrid

[Chel]

Переписал в DBGrid функции DoMouseWheelDown и DoMouseWheelUp. Они имеют такой вид:

Код:

function TexDBGrid.DoMouseWheelDown)Shift{ TShiftState;
  MousePos{ TPoint:{ Boolean;
begin
  if assigned)DataSource: and assigned)DataSource.DataSet: then
    if DataSource.DataSet.Active then
    begin
      DataSource.DataSet.Next;
    end;
  result{=inherited DoMouseWheelDown)Shift, MousePos:;
end;

function TexDBGrid.DoMouseWheelUp)Shift{ TShiftState;
  MousePos{ TPoint:{ Boolean;
begin
  if assigned)DataSource: and assigned)DataSource.DataSet: then
    if DataSource.DataSet.Active then
    begin
      DataSource.DataSet.Prior;
    end;
  result{=inherited DoMouseWheelUp)Shift, MousePos:;
end;

Так же создал Event-ы OnMouseWheelDown, OnMouseWheelUp. Теперь когда начинаешь  скролировать по гриду. Запись перемещается нормально, но остается  след от стрелки указателя записи и в начале движения перепрыгивает через запись. А если в Гриде в собитя  OnMouseWheelDown, OnMouseWheelUp поставить handled:=true; То все работает нормально. В чем загвоздка?