[Drozh]

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

Код:

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