Eigenschaften unterschiedlicher Objekte ändern

[WIng2005]

@Tyrael Y.:Klar, mein Fehler. Würde man nur die Eigenschaft color betrachten, wie könnte man den Code im ersten Beitrag entsprechend Korrigieren? Bin auf der suche nach einer kurzen "eleganten" Lösung. Andererseits, sofern ich einigen Komponenten ein readonly geben möchte, werde ich wohl den längeren Weg gehen müssen.
Ich ging davon aus, dass die Komponenten von TObject abstammen und somit

Delphi-Quellcode:

for i := 0 to Mainform.ComponentCount  - 1 do
    Begin
    if ((Mainform.Components[i] is TEdit)
        or (Mainform.Components[i] is TMemo))
        and (((Mainform.Components [i]).tag=1)) then
        Begin
        with (Mainform.Components [i]) as TObject  do
          readonly:=true; 
        end;
End;end;

möglich wäre. Funktioniert aber irgendwie auch nicht. Möchte erreichen, dass ich nicht für jedes Objekt eine extra Abfrage laufen lassen muss.

@Bernhard: das muss ich erstmal "sacken" lassen....

MFG
Steffen