Cambio de color a un componente

[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í?