CASE _prop_BackGround of
     1: FBackGroundBmp.Canvas.Pen.Color := RGB(0, 0, Gradient);
     2: FBackGroundBmp.Canvas.Pen.Color := RGB(0, Gradient, 0);
     3: FBackGroundBmp.Canvas.Pen.Color := RGB(Gradient, 0, 0);
   END;