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;