急：遍历容器上的控件？

Question

with  Panel38 do
  begin
  for i:=0 to ControlCount-1 do
  begin
  if  Controls[i].ControlStyle   ='TEdit'   then
   TEdit(Controls[i]).ReadOnly := true;
  end;
  end;
程序运行无报错，无反应。
是哪儿错了，请大家指教指教。谢谢！

Answer 1

循环应该是倒着循环：比如 
for I := ControlCount - 1 to 0 do
begin
  ..........
end;

Answer 2

楼上，是downto
同时建议用Controls[i] is TEdit来判断

Answer 3

with  Panel38 do 
  begin 
  for i:=0 to ControlCount-1 do 
  begin 
  if  Controls[i] is TEdit   then //用is来判断类型
   TEdit(Controls[i]).ReadOnly := true; 
  end; 
  end;