[Михалыч]

Имеется код для кнопки "Очистить"
procedure TForm1.Button2Click(Sender: TObject);

Код:

begin
  Edit6.Text:='0,00';
  Edit7.Text:='0,00';
  Edit8.Text:='0,00';
  Edit9.Text:='0,00';
  Edit10.Text:='0,00';
  Edit11.Text:='0,00';
  Edit12.Text:='0,00';
  Edit13.Text:='0,00';
  Edit14.Text:='0,00';
  Edit15.Text:='0,00';
  Edit16.Text:='0,00';
  Edit17.Text:='0,00';
  Edit18.Text:='0,00';
  Edit19.Text:='0,00';
 end;
end;

можно ли очищать эти же поля но только сразу диапазоном, т.е. чтобы каждую строчку не писать?