object FMon: TFMon Left = 99 Top = 287 Width = 112 Height = 253 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderIcons = [biSystemMenu, biMinimize] Caption = 'Monitor' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OnCreate = FormCreate OnHide = FormHide OnResize = FormResize OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object GroupBox2: TGroupBox Left = 0 Top = 117 Width = 105 Height = 81 Caption = 'Event' TabOrder = 6 object Label1: TLabel Left = 4 Top = 20 Width = 60 Height = 13 Caption = 'Interval/sec:' end end object BitBtn1: TBitBtn Left = 0 Top = 0 Width = 52 Height = 25 Caption = 'Run' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = BitBtn1Click end object BitBtn2: TBitBtn Left = 53 Top = 0 Width = 52 Height = 25 Caption = 'Stop' Enabled = False TabOrder = 1 OnClick = BitBtn2Click end object GroupBox1: TGroupBox Left = 0 Top = 25 Width = 105 Height = 89 Caption = 'Disable' TabOrder = 2 object B1: TCheckBox Left = 5 Top = 16 Width = 97 Height = 17 Caption = 'Centre' TabOrder = 0 OnClick = B1Click end object B2: TCheckBox Left = 5 Top = 32 Width = 97 Height = 17 Caption = 'Blink' TabOrder = 1 OnClick = B2Click end object B3: TCheckBox Left = 5 Top = 48 Width = 97 Height = 17 Caption = 'Beep' TabOrder = 2 OnClick = B3Click end object B4: TCheckBox Left = 5 Top = 64 Width = 97 Height = 17 Caption = 'Refresh' TabOrder = 3 OnClick = B4Click end end object MaskEdit1: TMaskEdit Left = 72 Top = 136 Width = 29 Height = 21 EditMask = '!9999;1;_' MaxLength = 4 TabOrder = 3 Text = '3 ' OnExit = MaskEdit1Exit end object BitBtn3: TBitBtn Left = 0 Top = 200 Width = 105 Height = 25 Caption = 'Reset project' TabOrder = 4 OnClick = BitBtn3Click end object B5: TCheckBox Left = 5 Top = 168 Width = 97 Height = 17 Caption = 'List Event' TabOrder = 5 OnClick = B5Click end object Timer1: TTimer Enabled = False Interval = 3000 OnTimer = Timer1Timer Left = 80 Top = 32 end end