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

[marto]

Código Delphi [-]
 
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;
  TEdit(Sender).color := ClWhite;
  Label1.caption := TEdit(Sender).Hint;
end;
 
procedure TForm1.Edit1Click(Sender: TObject);
begin
  Color(Sender);
end;

¿Qué te parece así?

[Dayvis]

Gracias Marto por tu respueta tan rapido, la verdad que me ayudo muchisimo, supongo que tengo que validar cuando sean otros componentes como combobox, o datetimepicker. de todos maneras tu ayuda me sirvio muchisimo.

Gracias