Crear unidad para cambiar el formato a los Tedits....

[linuxtin]

Pude compilar el componente, anda muy bien pero el problema es que tengo que cambiar todos los Tedits que tengo, si creo una unidad con este código

Código Delphi [-]
unit ColorEdit;

interface

uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, jpeg, ExtCtrls, StdCtrls, Buttons, Mask, DBCtrls;


type
  TForm1 = class(TForm)
    {...}
    procedure OnFieldEnter(Sender: TObject);
    procedure OnFieldExit(Sender: TObject);
  end;

  {...}

const
  clFocused = TColor($00FFFF);   // color for focused field
  clBlurred = TColor($FFFFFF);   // color for blurred field


implementation


procedure TForm1.OnFieldEnter(Sender: TObject);
begin
  if (Sender is TCustomEdit) then
    TEdit(Sender).Color := clFocused;
   // you may change all properties as desired when element is entered
end;

procedure TForm1.OnFieldExit(Sender: TObject);
begin
  if (Sender is TCustomEdit) then
    TEdit(Sender).Color := clBlurred;
end;

(*
  Now you select every element you want to change color
  if entered on your form and add the OnFieldEnter/OnFieldExit
  procedure to the OnEnter/OnExit event.
*)
end.

Como seria la forma para llamarla desde los otros formularios??

Desde ya muchas Gracias!!!