Как в делфи сделать что бы при вводе текста в поле DBEdit менялся цвет компонента Label

[kuu]

Помогите пожалуйста! Как в делфи сделать что бы при вводе текста в поле DBEdit менялся цвет компонента Label.. Например если поле DBEit пустое то label имеет красный цвет, Если поле не пустое то черный! Плиз очень надо

[Аватар]

procedure TForm1.Edit3Change(Sender: TObject);
begin
  if Trim(Edit3.Text)='' then Label1.Font.Color:=clRed else Label1.Font.Color:=clBlack;
end;

[Serge_Bliznykov]

код на событие (Event) onChange у DBEdit1

procedure TForm1.DBEdit1Change(Sender: TObject);
begin
  if Trim(DBEdit1.Text)='' then Label1.Color := clRed else Label1.Color := clBlack;
end;

опоздал...

[kuu]

Парни спасибо большое выручили !