i:integer;
begin
  for i:=1 to componentcount-1 do
    if components[i] is tedit then
    (components[i] as tedit).Text :='';
  close;
end;

用一个循环来给所有的edit控件赋同一个值。
i:integer;
begin
  for i:=1 to componentcount-1 do //for循环,componentcount-1 代表控件总数
    if components[i] is tedit then //判断是Edit控件就开始循环赋同一个值
    (components[i] as tedit).Text :='';
  close;
end;