[Yurk@]

Код:

for i := 0 to ComponentCount - 1 do
  if Components[i] is TEdit 
    then (Components[i] as TEdit).ReadOnly := False;