Программно обновить цвет кнопки

Style.Color = 16711422
Style.DelineateColor = clBlack
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'MS Sans Serif'
Style.Font.Style = []
Style.Bevel.Inner = bvRaised
Style.Bevel.Outer = bvNone
Style.Bevel.Bold = False
Style.TextStyle = fstNone
Style.Gradient.FromColor = clWhite
Style.Gradient.ToColor = 16741749
Style.Gradient.Active = True
Style.Gradient.Orientation = fgdHorizontal
Style.TextGradient.Active = False
Style.TextGradient.Orientation = fgdHorizontal
StyleActive.Color = clWhite
StyleActive.DelineateColor = clBlack
StyleActive.Font.Charset = DEFAULT_CHARSET
StyleActive.Font.Color = clWindowText
StyleActive.Font.Height = -11
StyleActive.Font.Name = 'MS Sans Serif'
StyleActive.Font.Style = []
StyleActive.Bevel.Inner = bvRaised
StyleActive.Bevel.Outer = bvNone
StyleActive.Bevel.Bold = False
StyleActive.TextStyle = fstNone
StyleActive.Gradient.FromColor = clWhite
StyleActive.Gradient.ToColor = 33023
StyleActive.Gradient.Active = True
StyleActive.Gradient.Orientation = fgdHorizontal
StyleActive.TextGradient.Active = False
StyleActive.TextGradient.Orientation = fgdHorizontal
StylePushed.Color = 16053492
StylePushed.DelineateColor = clBlack
StylePushed.Font.Charset = DEFAULT_CHARSET
StylePushed.Font.Color = clWindowText
StylePushed.Font.Height = -11
StylePushed.Font.Name = 'MS Sans Serif'
StylePushed.Font.Style = []
StylePushed.Bevel.Inner = bvLowered
StylePushed.Bevel.Outer = bvNone
StylePushed.Bevel.Bold = False
StylePushed.TextStyle = fstNone
StylePushed.Gradient.FromColor = clWhite
StylePushed.Gradient.ToColor = clGreen
StylePushed.Gradient.Active = True
StylePushed.Gradient.Orientation = fgdHorizontal
StylePushed.TextGradient.Active = False
StylePushed.TextGradient.Orientation = fgdHorizontal