Изменение цвета поля edit при попадании на него курсора

[AlexK1]

Помогите пожалуста !!!!

Есть форма, на ней два поля (Edit1 и Edit2), при нажатии клавиши enter курсор переходит с одного поля на другой по очереди . Нужно чтобы при попадании кусора в edit1 или edit2 эти поля должны изменять цвет.

[Баламут]

Обрабатывай события onEnter и onExit

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  Edit1.Color := clBlue;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  Edit1.Color := clWhite;
end;

[XeruH]

Сообщение от Баламут

Обрабатывай события onEnter и onExit

procedure TForm1.AnyEditEnter(Sender: TObject);
begin
  if Sender is TEdit then
    TEdit(Sender).Color := clBlue;
end;

procedure TForm1.AnyEditExit(Sender: TObject);
begin
  if Sender is TEdit then
    TEdit(Sender).Color := clWhite;
end;