懒人求最简的方法!!高手请进!!(30分)

设.现有edit1,edit2...eidt40
.....
query1.sql.add('select a,b,c,d....avb where www');
query1.open

得到的值要给EDIT1到EDIT40
原始方法:
EIDT1.TEXT:=query1[0];
EIDT2.TEXT:=query1[1];
......
EIDT40.TEXT:=query1[39];

现求一简便的方法!

如用FOR 之类的

for i:=1 to 40 do
TEdit(FindComponent('Edit'+IntToStr(i))).Text:=query1[i-1]

接受答案了.