Funciones desde otras Form

[*Caro*]

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