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

[linuxtin]

Hola a todos como andan!!

La consulta que tengo es la siguiente, en los distintos formularios se me ocurrió cambiar el fondo de lo Tedits de color azul y la letra con color blanco, para que sea un poco mas amigable al cargar los datos.

Código Delphi [-]

procedure TAltasForm.MailEditEnter(Sender: TObject); 
begin               
  MailEdit.Color:=$00FC8856;               
  MailEdit.Font.Color:=clWhite;  
end;  

procedure TAltasForm.MailEditExit(Sender: TObject); 
begin                 
  MailEdit.Color:=clWhite;                 
  MailEdit.Font.Color:=clBlack;  
end;

Pero como son muchos edits me gustaria hacer una unidad, para poder llamarla para cada edit.

No se como implementar esto. Si alguien me puede dar una idea!!

Desde ya muchas gracias!