Hola leny, debes preguntar por el nombre de la clase, en tu caso TDBEdit.
Código Delphi
[-]
procedure ReadOnly(valor : Boolean);
for i := 0 to ComponentCount - 1 do begin
Component := Components[ i ];
if Component is TDBEdit then
TDBEdit(Component).ReadOnly := valor;
end;
Saluditos