10 RichEditow

Mam malutki problemik z zapisem. Uzywam 10 Riczeditow w tekście i jak zapisac w petli aby np. zmienic ich kolor a nie pojedynczo do każdego osobno wpisywać:
Form1.RichEdit1.Color:-=clWhite;
.
.
Form1.RichEdit10.Color:=clWhite;

bo kod sie rozszerza.
Mozna to zaposać w pętli
np
for i:=1 to 10 do
Form1.i tu mam problem.Color:=clRed;

Pozdrawiam i dziekuje.

Ale to już było...

var
  I : Integer;
begin
  for I := 0 to Form1.ComponentCount - 1 do
    if (Form1.Components[I] is TRichEdit) then
      (Form1.Components[I] as TRichEdit).Color := clRed;
end;

to z kolorami chodzi ale gdzy chce zrobic to samo tylko ze
(Form1.Components[I] as TRichEdit). Font.Size:=20
to nie działa. Pomożcie gdzie jest problem.

U mnie działa :> . Może jeśli zmieniasz na raz jedno i drugie zapomniałeś dać je do begin..end;

for i := 1 to 10 do
(FindComponent('RichEdit' + IntToStr(i)) as TRichEdit).Font.Size := 20;