Hola Lenny, tienes que pasar como parámetro el formulario.
Código Delphi
[-]
procedure TForm1.ColorOn(form : TForm);
var
i: integer;
begin
for i := 0 to Pred(form.ComponentCount) do
begin
if form.Components[i] is TDBEdit then
begin
TDBEdit(form.Components[i]).Color := $FBEFEF;
end;
end;
end;
Saluditos