object MainForm: TMainForm Left = 409 Height = 448 Top = 218 Width = 613 HorzScrollBar.Page = 559 VertScrollBar.Page = 447 ActiveControl = ListBox1 Caption = 'Test SetTimer' ClientHeight = 448 ClientWidth = 613 Position = poScreenCenter LCLVersion = '1.3' object ListBox1: TListBox Left = 8 Height = 403 Top = 8 Width = 320 Anchors = [akTop, akLeft, akBottom] ItemHeight = 0 ScrollWidth = 318 TabOrder = 0 end object Button1: TButton Left = 240 Height = 30 Top = 414 Width = 88 Anchors = [akLeft, akBottom] BorderSpacing.InnerBorder = 4 Caption = 'Clear' OnClick = Button1Click TabOrder = 1 end object SetTimer1Button: TButton Left = 345 Height = 28 Top = 8 Width = 120 BorderSpacing.InnerBorder = 4 Caption = 'Set Timer 1' OnClick = SetTimer1ButtonClick TabOrder = 2 end object SetTimer2Button: TButton Left = 345 Height = 28 Top = 48 Width = 120 BorderSpacing.InnerBorder = 4 Caption = 'Set Timer 2' OnClick = SetTimer2ButtonClick TabOrder = 3 end object SetTimer3Button: TButton Left = 345 Height = 28 Top = 88 Width = 120 BorderSpacing.InnerBorder = 4 Caption = 'Set Timer 3' OnClick = SetTimer3ButtonClick TabOrder = 4 end object KillTimer1Button: TButton Left = 481 Height = 28 Top = 8 Width = 120 BorderSpacing.InnerBorder = 4 Caption = 'Kill' OnClick = KillTimer1ButtonClick TabOrder = 5 end object KillTimer2Button: TButton Left = 481 Height = 28 Top = 48 Width = 120 BorderSpacing.InnerBorder = 4 Caption = 'Kill' OnClick = KillTimer2ButtonClick TabOrder = 6 end object KillTimer3Button: TButton Left = 481 Height = 60 Top = 88 Width = 120 BorderSpacing.InnerBorder = 4 Caption = 'Kill' OnClick = KillTimer3ButtonClick TabOrder = 7 end object SetTimer3bButton: TButton Left = 345 Height = 28 Top = 120 Width = 120 BorderSpacing.InnerBorder = 4 Caption = 'Set Timer 3b' OnClick = SetTimer3bButtonClick TabOrder = 8 end object SetTimerDestroyButton: TButton Left = 345 Height = 28 Top = 224 Width = 256 Caption = 'Set Timer and Destroy' OnClick = SetTimerDestroyButtonClick TabOrder = 9 end object SetGlobalTimerButton: TButton Left = 345 Height = 28 Top = 160 Width = 120 BorderSpacing.InnerBorder = 4 Caption = 'Set Global Timer' OnClick = SetGlobalTimerButtonClick TabOrder = 10 end object KillGlobalTimerButton1: TButton Left = 481 Height = 28 Top = 160 Width = 120 BorderSpacing.InnerBorder = 4 Caption = 'Kill' OnClick = KillGlobalTimerButton1Click TabOrder = 11 end end