Alterar cor do Campo nos eventos onfoco e on exit

Para alterar a cor do DBEdit quando recebe e perde o foco, utilizo a seguinte rotina.
private
{ Private declarations }
ComponAnt : TDBEdit;

procedure TF_Animal.ControlChange(Sender : TObject);
begin
if Assigned(ComponAnt) then ComponAnt.color := clMenu;

if ActiveControl is TDBEdit then begin
TDBEdit(ActiveControl).color := clInfoBk;
ComponAnt := TDBEdit(ActiveControl);
end
else
ComponAnt := nil;
end;

Funciona super bem, mais quero incluir outros componente, ex. DBLookComboBox, TDBDateEdit, TRxDBCalcEdit

Por favor, me ajudem