object Form1: TForm1 Left = 0 Height = 181 Top = 0 Width = 452 Caption = 'Form1' ClientHeight = 181 ClientWidth = 452 Color = clBtnFace Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' OnDestroy = FormDestroy Position = poScreenCenter object Label1: TLabel Left = 8 Height = 16 Top = 72 Width = 64 Caption = 'Результат:' end object labResult: TLabel Left = 78 Height = 16 Top = 72 Width = 7 Caption = '0' end object Label2: TLabel Left = 8 Height = 16 Top = 96 Width = 119 Caption = 'Статус вычислений:' end object labThreadStateInfo: TLabel Left = 132 Height = 16 Top = 97 Width = 18 Caption = '???' end object Label3: TLabel Left = 8 Height = 16 Top = 136 Width = 243 Caption = 'Число вызовов обработчика сообщения:' end object labPostMsgProcessCount: TLabel Left = 257 Height = 16 Top = 136 Width = 7 Caption = '0' end object Label4: TLabel Left = 8 Height = 16 Top = 118 Width = 198 Caption = 'Число отправленных сообщений:' end object labPostMsgCount: TLabel Left = 212 Height = 16 Top = 118 Width = 7 Caption = '0' end object Label5: TLabel Left = 8 Height = 16 Top = 157 Width = 114 Caption = 'Поток завершился:' end object labEndWork: TLabel Left = 128 Height = 16 Top = 157 Width = 18 Caption = '???' end object btnRunInParallelThread: TButton Left = 8 Height = 33 Top = 8 Width = 217 Caption = 'Вычислить сумму ряда чисел до:' TabOrder = 0 OnClick = btnRunInParallelThreadClick end object ProgressBar1: TProgressBar Left = 8 Height = 17 Top = 49 Width = 436 Anchors = [akTop, akLeft, akRight] TabOrder = 1 end object edMaxValue: TEdit Left = 232 Height = 24 Top = 16 Width = 89 TabOrder = 2 Text = '10000000' end object Timer1: TTimer Interval = 100 OnTimer = Timer1Timer Left = 304 Top = 120 end end