[Lenny]

Muchas gracias por responder, aun toy algo complicado.

Lo que me dices Caro Funciona pero me pide algo entre (), sorry por la ingorancia lo deje asi:

Código Delphi [-]
procedure TEmpresas.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;

y desde la otra Form lo llamo asi:

Código Delphi [-]
Empresas.ColorOn;

me manda error, de echo me sale que devo escribir algo entre()

Código Delphi [-]
Empresas.ColorOn();

¿Devo colocar algo entre()? ¿que?

Perdon por la ignorancia, quizas sea muy tonta la pregunta, de antemano muchas gracias....