delphi数据库中如何实现查找下一个

我想在dbgrid组件中，查找指定的值，将光标移动到找到的值上，并实现查找下一个的功能。如：age字段中，有3个记录值是40，我想一个一个的找出来，但dbbrid组件中的内容要保持原样。
不管是BDE，ADO，还是dbpress组件，都提供Locate、Lookup、findkey、过滤器、SetRange等方法查找数值，
locate，lookup、findkey方法只能找到相符的第一个值。
过滤器和setrange又是一次性的将所有相符的值找出来。
均不能实现查找下一个的功能。

请高手指教。

假设这个表是TStu.里面有age字段且假设有三个40的值
方法如下:
通过select语句查出这三个记录后
,可以借用一个记录集dstemp,把这三个字段的关键字段和age字段存入dstemp中,
每次点"下一个",把dstemp中的记录向后移动(dstemp.next) ,然后区出 dstemp中的关键字段从表TStu中定位你需要的表记录.