不是自己带有滚动条的吗，干吗非要分页，而且分页很麻烦，窗口大小变化了，每页的容量不同

//计算一次滚动的行数 
iRollCount := (GridDisplay.Height div GridDisplay.DefaultRowHeight);
{//排除只显示一行的情况.否则1 div 2 = 0.
if iRollCount > 1 then iRollCount := iRollCount div 2;}
//对滚动的控制,也就是一次记录跳几行
if iRollCount > 0 then
  if not DataM.QueryAmb.Eof then DataM.QueryAmb.MoveBy(iRollCount);