Detectar evento cambio de foco

[pborges36]

el procedimiento AplicarColor lo tengo implementeado de la siguiente manera:

Código Delphi [-]
Procedure TBRGFocusAdmin.AplicarColor(colorf:TColor;Componente:TComponent);
begin
    try
      if (Componente is TEdit) then
        begin
            (Componente as TEdit).Color:=colorf;
        end;
      if (Componente is TComboBox) then
        begin
            (Componente as TComboBox).Color:=colorf;
        end;
      if (Componente is TDateTimePicker) then
        begin
            (Componente as TDateTimePicker).Color:=colorf;
        end;
      if (Componente is TMemo) then
        begin
            (Componente as TMemo).Color:=colorf;
        end;
      (Componente as TWinControl).Repaint;
    except
    end;
end;

Creo que solo faltaria agregar la clase del componente que estas usando.
algo como:

Código Delphi [-]
if (Componente is TDBEdit) then
        begin
            (Componente as TDBEdit).Color:=colorf;
        end;

Saludos.