对查询出来的记录行进行分页显示，怎么做？？？在客户现场，哪位大虾帮忙？急急急...

对查询出来的记录行进行分页显示，怎么做？？？在客户现场，哪位大虾帮忙？急急急 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061222165453159.html
对于查询出来的记录行，我想每40条一页来显示，每次查询的记录行会不一样  
  最后一页显示出它的余数  
  界面上会有四个按钮，首页，上一页，下一页，末页  
  用来翻页使用  
  应该怎么做？？

DBGrid和DataSource连接，DataSource和ADODataSet1连接。  
      ADODataSet1.Open;  
       
      ADODataSet1.Recordset.PageSize   :=   40;  
      ADODataSet1.Recordset.AbsolutePosition   :=   1;

或者参考一下  
  http://topic.csdn.net/t/20021127/13/1209697.html

我想要事例代码,谢谢！

msort   :=   True;  
          NumP   :=   25;  
          CurPage   :=   1;  
          dslog.Active   :=   False;  
          dslog.CommandText   :=   'select   *   from   Logs   ';  
          dslog.Active   :=   True;  
          TotalNum   :=   dslog.RecordCount;  
   
          PageNum   :=   TotalNum   div   NumP;  
          if   (TotalNum   /   Nump)   <>   0   then   PageNum   :=   PageNum   +   1;  
          TbPre.Enabled   :=   False;  
          if   PageNum<2   then   TbNext.Enabled   :=   False;  
          StatuRefresh;  
          dslog.Active   :=   False;  
          dslog.CommandText   :=   'select   top   '   +   inttostr(NumP)   +   '   *   from   Logs   order   by   logid';  
          dslog.Active   :=   True;