清空所有EDIT的text

var
  i:Integer;
begin
  for i:=0 to componentcount-1 do begin
    if (components[i] is TEDIT) then  begin
      TEDIT(components[i]).text:='';
    end;
  end; 
end;