anchor.diff:      Margins.Right = 2
       Margins.Bottom = 2
       Caption = 'km/h'
  -    Color = clBlack
  -    Font.Charset = DEFAULT_CHARSET
  -    Font.Color = clBlack
  -    Font.Height = -11
  -    Font.Name = 'MS Sans Serif'
  -    Font.Style = []
  -    ParentColor = False
  -    ParentFont = False
     end
     object S_Status: TShape
       Left = 16
  
positive.code:     Margins.Right = 2
      Margins.Bottom = 2
      Caption = 'F12'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 16
      OnClick = CHB_svetlaClick
    end
  
negative.code:     Margins.Right = 2
      Margins.Bottom = 2
      Caption = 'Rychlost'
    end
    object L_address: TLabel
      Left = 349
  