如何循环访问控件？

Question

No.1
for I := 0 to ComponentCount - 1 do
  if Components[I] is TEdit then 
    TEdit(Components[I]).Text := '试';No.2
for I := 1 to 10 do
  if Assigned(FindComponent(Format('Edit%d', [I]))) then
     TEdit(FindComponent(Format('Edit%d', [I]))).Text := '看';

Answer 1

for i:=1 to 8 do begin
        myedit:=findcomponent('Edit'+inttostr(i));
        if  Assigned(myedit)  then
            Tedit(myedit).text  :=inttostr(i);
        end;
    end;