delphi ----寻找控件，以字符串类型的名称控件

var
i :Integer;
begin
for i := 1 to 10 do
(FindComponent('Edit'+inttostr(i)) as TEdit).Text := inttostr(i);
end;