1、var
    i:  integer;
begin
for I := 1 to 20 do
 TEdit(FindComponent('Edit'+IntToStr(I))).Caption:='0';
end;
2、3、aqoquery.sql.text:='select * from 人事表 where Rno like '''+edit15.text+'''';