Eigenschaften unterschiedlicher Objekte ändern

[WIng2005]

Hallo,

ich möchte zur Laufzeit die Eigenschaften (readonly und color) unterschiedlicher Objekte ändern.
Das betrifft bspw. TEdit, TMemo, TCombobox,TListbox, TJvListbox und TJvCombobox.
Mein Ansatz bisher war:

Delphi-Quellcode:

for i := 0 to Mainform.ComponentCount  - 1 do
    Begin
    if ((Mainform.Components[i] is TEdit)
        or (Mainform.Components[i] is TMemo)
        or (Mainform.Components[i] is TListbox)
        or (Mainform.Components[i] is TJvListbox)
        or (Mainform.Components[i] is TJvComboBox)
        or (Mainform.Components[i] is TCombobox))
        and (((Mainform.Components [i]).tag=1)) then
        Begin
        with (Mainform.Components [i]) do
          readonly:=true;  //mag er nicht : Undefinierter Bezeichner 
        end;
End;end;

Leider hänge ich ein wenig an der markierten Stelle, und hoffe ihr könnt mir meinen Fehler ein wenig deutlich machen.

MFG
Steffen