anchor.diff:    C.Font.Color:= st.Font.Color;
     C.Font.Style:= st.Font.Style;
     C.Brush.Color:= st.BgColor;
  +  if st.BgColor=clNone then
  +    C.Brush.Color:= FColorBg;
   
     S:= cExample;
     NWidth:= C.TextWidth(S);
  
positive.code: end;
  
  procedure TfmColorSetup.FormShow(Sender: TObject);
  begin
    Localize;
  
  
negative.code:     procedure OKButtonClick(Sender: TObject);
    private
      { private declarations }
      FColorBg: TColor;
      procedure UpdateList;
      procedure Localize;
    public
  