object Form1: TForm1 Left = 800 Height = 240 Top = 281 Width = 320 Caption = 'SpinEdit example' ClientHeight = 240 ClientWidth = 320 OnActivate = FormActivate LCLVersion = '2.0.12.0' object lblA: TLabel Left = 56 Height = 16 Top = 17 Width = 55 Caption = 'integer A' ParentColor = False end object lblB: TLabel Left = 200 Height = 16 Top = 17 Width = 55 Caption = 'integer B' ParentColor = False end object seA: TSpinEdit Left = 23 Height = 21 Top = 40 Width = 129 MaxValue = 10000 MinValue = -10000 OnChange = ChangeAorB TabOrder = 0 Value = 10 end object seB: TSpinEdit Left = 160 Height = 21 Top = 40 Width = 136 MaxValue = 10000 MinValue = -10000 OnChange = ChangeAorB TabOrder = 1 Value = 10 end object DividerBevel1: TDividerBevel Left = 23 Height = 16 Top = 80 Width = 273 Caption = 'calculated results' Font.Style = [fsBold] ParentFont = False end object lbResults: TListBox Left = 23 Height = 120 Top = 104 Width = 273 ItemHeight = 0 TabOrder = 2 end end