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

对查询出来的记录行进行分页显示，怎么做？？？在客户现场，哪位大虾帮忙？急急急 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;