关于循环语句的问题我就是搞不懂请帮助!

Question

for i:= 1 to 13 do
  (FindComponent('DBEdit'+IntToStr(i)) as TDBEdit).ReadOnly :=False;

Answer 1

如下代码：
 var i;integer;
 begin
   for i := 0 to self.componetscount-1
     if self.componets[i] is tdbedit then
        tdbedit(self.componets[i]).readonly := false
 end
　

Answer 2

var i;integer;
begin
  for i := 0 to 13
    tdbedit(findcomponet('dbedit'+inttostr(i)).readonly := false
end