DBGrid и колесико мыши(скроллинг)

[M@riy@]

Здравствуйте! Как известно, у стандартного DBGrid'а (Delphi 7) колесо мыши работает только в области видимой "части" базы данных, нужно сделать, что бы переход осуществлялся по всем строкам таблицы (а не только видимым). МЕНЯТЬ СТАНДАРТНЫЙ DBGrid НА ЧТО ЛИБО ДРУГОЕ НЕ МОГУ!!! Пробовала сделать вот так:

 private   
 { Private declarations }
   procedure MouseWheelHandler(var Message: TMessage);
override;
  public    
{ Public declarations }
  end;
 
var  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.MouseWheelHandler(var Message: TMessage);
var  
p:TPoint;
begin
GetCursorPos(p);
If WindowFromPoint(p)=DBGrid1.Handle then
begin
  If Message.WParam<0
 then
  DBGrid1.Perform(WM_VSCROLL, SB_LINEDOWN, 0) 
 else
  DBGrid1.Perform(WM_VSCROLL, SB_LINEUP, 0);
end;
end;

, но так, при прокручивании, перескакивает сразу на последнюю строку, игнорирую те, что были между первой (или любой другой выбранной строкой) и последней. Как можно исправить эту проблему??? или я что-то слелала не так?

[Stilet]

  If Message.WParam<0
 then
  DBGrid1.DataSource.DataSet.FindNext
 else
  DBGrid1.DataSource.DataSet.FindPrev;

[M@riy@]

Сначала переходил через строчку, а как дошел до конца страницы(при попытке дальнейшего прокручивания) дал ошибку : "TADOQuery:Record not found" (FindPrev Делфи почему то не знает, сделала через FindPrior)

[mihali4]

Введите проверки на ADOQuery.Eof и ADOQuery.Bof...