[kadnikov]

Сообщение от Drozh

Можно так, но без проверки выхода за пределы массива

Код:

var
 i: Integer;
begin
 for i := 63 to 100 do
  (FindComponent('Edit'+IntToStr(i)) as TEdit).Color := clRed;
end;

этот вариант подходит, но есть два вопроса:
1. В каком случае может произойти выход за пределы массива?
2. В случае когда элементу присваивается несколько значений, или проверяются условия на ввод данных в группе, логично сделать так:

Код:

procedure TForm1.Button4Click(Sender: TObject);
begin
For x:=2 to 26 do
begin
e:=(FindComponent('Edit'+IntToStr(x)) as TEdit);
e.Color := clRed;
...
end;
end;

Делфи не даёт написать например

Код:

Form1.e.Color:=clRed

Отсюда вопрос, FindComponent ищет только по той форме в Unit которой прописан? (уточнение на всякий случай)...