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;