Jak zmienic kolory we wszytskich komponentach?

Wiecie co szukam tego od dluzszego czasu . Jak zmienic za pomoca wyboru koloru z podstawowej palety kolor czcionki uzywanych we wszystkich komponentach memo i text ? albo jak zmienic kolory tych komponentow ?

Dla i równego 0 do Forma.ComponentCount-1 rób
jeśli Froma.Components[i].ClassName = 'TMemo' to
(Forma.Components[i] jako TMemo).Color = MyColor

Miałem to w BCB, ale w pseudokodzie nikt się nie przyczepi, że pomyliłem działy :-P.

Że działy to nie, ale parę kosmetycznych poprawek ;) :

Dla i przyjmującego wartości od 0 do Forma.ComponentCount-1 rób
jeśli Froma.Components[i].ClassName jest TMemo to
(Forma.Components[i] jako TMemo).Color = MyColor

<font color="green">Dla i przyjmującego wartości od 0 do Forma.ComponentCount-1 rób
jeśli Froma.Components[i].ClassName jest TMemo to
(Forma.Components[i] jako TMemo).Color = MyColor</span>

Mała poprawka: ... (Forma.Components[i] jako TMemo).Font.Color...

Dziekuje WAM tak dla pro-formy:

for i:=0 to Form1.ComponentCount-1 do begin
  if Form1.Components[i].ClassName = 'TMemo' then
    (Form1.Components[i] as TMemo).Color := clGreen;
    end;

POZDRO

ps. jak wpisze (Forma.Components[i] jako TMemo).Font.Color...

zmieni mi kolor czcionki a zeby zmienic kolor czcionki i w memo i w edit i w label itd to jaka klase musze znalezc? zmiast TMEMO cos???

Może TControl ?

wydaje mi sie ze szybciej dziala cos takiego

Form1.Components[i] is TMemo

niz

Form1.Components[i].ClassName = 'TMemo'

//do ponizej

Nie jestem znawcą delphi więc napisałem wydaje mi sie.
Konstrukcja is porównuje typ klasy i to jest chyba szybsze niż porównywanie stringów.

wydaje mi sie ze szybciej dziala cos takiego

No tego to ja nie wiem - w BCB nie ma czegoś takiego jak is, a że ja piszę właśnie w tym środowisku, stąd taki przykład - to już niech znawcy Delphi ocenią co lepsze ;-).