Cambio de color a un componente

[Dayvis]

Hola, tengo una pequeña duda haber si me ayudan a resolverlo.

Tengo varios edit's, combobox en un formulario todos tienen el misco color
pero cuando el usuario selecciona uno de ellos u obtiene el foco para escribir o entrar datos, cambio el color solo del componente seleccionado y el anterior lo regreso al color normal lo hago llamando a una funcion y paso la varialbe sender pero no me funciona solo me cambia de color el panel que contiene todos los componentes ojala puedan ayudarme a resolver

 
procedure Form1.Color(sender:Tobject);
begin
edit1.color := ClSilver;
edit2.color := ClSilver;
edit3.color := ClSilver;
edit4.color := ClSilver;
edit5.color := ClSilver;
edit6.color := ClSilver;
cb1.color := ClSilver;
cb2.color := ClSilver;
dt1.color := ClSilver;
self.color := ClWhite;
Label1.caption := Self.Hint;
end;
 
procedure TForm1.Edit1Click(Sender: TObject);
begin
Color(Sender);
end;

ojala puedan darme alguna respuesta, porque estoy buscando en el foro y no encuentro el como poder hacerlo