Свойства компонентов

[Сид]

Как нескольким компонентам одного типа(пример:edit1,edit2...edit10) установить одно свойство,чтобы десять строчек не писать, а через цикл?

[W0LF]

Типа так)

var
  Count: integer;
begin
  for Count := 1 to 10 do
     (FindComponent('Edit'+IntToStr(Count)) as TCheckBox).Text := 'Новый текст';
end;