[Михалыч]

Имеется код для кнопки "Очистить"
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;

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

[:S.p.a.m.]

можно конечно. вот пример.
Как работать с компонентами по их индексу

[Vayrus]

Код:

procedure ChangeValues;
var
I : Integer;
begin
with Form1 do
begin
for I := 0 to ComponentCount - 1 do
begin
if (Components[i] is TEdit) then
begin
if I in [6..19] then
(Components[i] as TEdit).Text := '0,00';
end;
Application.ProcessMessages;
end;
end;
end;

[Aristarh Dark]

Vayrus, Вы бы, батенька, подумали что предлагаете.
Михалыч, у формы есть метод FindComponent, ищет "на себе" (не знаю я как перевести по человечески фразу "owned by the component" - типа "то чем владеет этот компонент" ) компонент по его имени, дальше думай сам. Vayrus в принципе предложин не очень и плохой подход, только данная реализация работать не будет