object MainForm: TMainForm Left = 0 Top = 0 Caption = 'MVCAsync Sample' ClientHeight = 181 ClientWidth = 693 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Segoe UI' Font.Style = [] TextHeight = 15 object btnAsync1: TButton Left = 16 Top = 16 Width = 161 Height = 41 Caption = 'Async Test' TabOrder = 0 OnClick = btnAsync1Click end object Edit1: TEdit Left = 16 Top = 72 Width = 161 Height = 23 TabOrder = 1 Text = 'Edit1' end object btnWithEx: TButton Left = 448 Top = 16 Width = 161 Height = 41 Caption = 'Async Test With Exception' TabOrder = 2 OnClick = btnWithExClick end object btnWithExcDefault: TButton Left = 272 Top = 16 Width = 161 Height = 41 Caption = 'Async Test With Exception (default)' TabOrder = 3 WordWrap = True OnClick = btnWithExcDefaultClick end end