关于dbgird的问题

我的dbgird1里存放了一个经过select查询的数据库虚拟表（该表本就不存在）内容，2列，一列姓名，一列年龄，我想从第一行开始检查，把里面所有年龄等于23的人找出来，但不是一下都出来，一个一个出，因为我要用下面的语句：
str:string;
str:='select * from tt where 1=2';
一个循环
begin
if(ADOquery1.fildname(年龄).integer=23) then
str:=str+'or 姓名='''+ADOquery1.fildname(姓名).string+'''';
end
我只有这样的构想，但不一定对，主要是这个循环怎么写，主要实现的功能的意思就是这样
帮帮我，我这人比较笨，最好给源码，我对理论的理论就是0