object Form1: TForm1 Left = 290 Height = 300 Top = 155 Width = 400 HorzScrollBar.Page = 399 VertScrollBar.Page = 299 Caption = 'QueueAsyncCall example' ClientHeight = 300 ClientWidth = 400 LCLVersion = '1.7' object Button1: TButton AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner Left = 4 Height = 25 Top = 4 Width = 124 BorderSpacing.Around = 4 Caption = 'Direct call' OnClick = Button1Click TabOrder = 0 end object Button2: TButton AnchorSideLeft.Control = Owner AnchorSideTop.Control = Button1 AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Button1 AnchorSideRight.Side = asrBottom Left = 4 Height = 25 Top = 33 Width = 124 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 4 BorderSpacing.Top = 4 Caption = 'Async call' OnClick = Button2Click TabOrder = 1 end object Memo1: TMemo AnchorSideLeft.Control = Button1 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Owner AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = Owner AnchorSideBottom.Side = asrBottom Left = 132 Height = 292 Top = 4 Width = 264 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Around = 4 ReadOnly = True ScrollBars = ssAutoBoth TabOrder = 2 end object RadioGroup1: TRadioGroup AnchorSideLeft.Control = Button2 AnchorSideRight.Control = Button2 AnchorSideRight.Side = asrBottom Left = 4 Height = 72 Top = 75 Width = 124 Anchors = [akTop, akLeft, akRight] AutoFill = True Caption = 'Parameters' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 46 ClientWidth = 120 ItemIndex = 0 Items.Strings = ( 'Integer (simple)' 'Record (advanced)' ) TabOrder = 3 end end