LabeledEdit的问题？

Question

有8个LabeledEdit，功能是每个LabeledEdit的enter,和exit事件都让它的color变色!!
例如:
procedure TForm3.LabeledEdit1Enter(Sender: TObject);
begin
  labeledEdit1.Color:=clAqua;
end;
procedure TForm3.LabeledEdit1Exit(Sender: TObject);
begin
  labeledEdit1.Color:=clWhite;
end;我不想写8个这样的事件，好麻烦!!!
应该怎么做只用写一次就行了  !!答:
全选labeledit设置enter事件都为labeledit1的enter事件
同样设置exit事件，然后改写事件
procedure TForm3.LabeledEdit1Enter(Sender: TObject);
begin
 TlabeledEdit(Sender).Color:=clAqua;
end;
procedure TForm3.LabeledEdit1Exit(Sender: TObject);
begin
 TlabeledEdit(Sender).Color:=clWhite;
end;  
再问:
procedure TForm3.LabeledEdit1Enter(Sender: TObject);
begin
TlabeledEdit(Sender).Color:=clAqua;
end;
procedure TForm3.LabeledEdit1Exit(Sender: TObject);
begin
TlabeledEdit(Sender).Color:=clWhite;
end;  只有lableEdit1可以实现，其它的都不行啊？？
麻烦您们再说清一次，我实在太笨了  !!
请问到底如何实现??

Answer 1

你把这两句话分别复制到其中任何一个（比如是LabeledEdit1）的enter事件和exit事件中，
procedure TForm3.LabeledEdit1Enter(Sender: TObject);
begin
 TlabeledEdit(Sender).Color:=clAqua;
end;
procedure TForm3.LabeledEdit1Exit(Sender: TObject);
begin
 TlabeledEdit(Sender).Color:=clWhite;
end;  
然后把其他的几个都选中，在属性页（object inspector)的时间页中，点enter事件的下拉列表，选中刚才的控件（LabeledEdit1）的事件，即可，exit同上。

Answer 2

你还要设置其他lablededit的onenter和onexit事件
通过lablededit的onenter事件旁边的按钮，选择其他lablededit的onenter事件为lablededit1enter，onexit事件为lablededit1exit