object RandomSampFrm: TRandomSampFrm Left = 659 Height = 150 Top = 405 Width = 382 AutoSize = True BorderStyle = bsDialog Caption = 'Select Cases Random Sample' ClientHeight = 150 ClientWidth = 382 OnActivate = FormActivate OnShow = FormShow Position = poMainFormCenter LCLVersion = '2.1.0.0' object GroupBox1: TGroupBox AnchorSideTop.Control = Owner Left = 8 Height = 92 Top = 8 Width = 364 AutoSize = True BorderSpacing.Left = 12 BorderSpacing.Top = 8 BorderSpacing.Right = 12 Caption = 'Sample Size' ClientHeight = 72 ClientWidth = 360 TabOrder = 0 object Label1: TLabel AnchorSideLeft.Control = PcntEdit AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = ApproxBtn AnchorSideTop.Side = asrCenter Left = 179 Height = 15 Top = 10 Width = 55 BorderSpacing.Left = 8 Caption = '% of cases' ParentColor = False end object Label2: TLabel AnchorSideLeft.Control = ExactEdit AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = ExactBtn AnchorSideTop.Side = asrCenter Left = 145 Height = 15 Top = 41 Width = 103 BorderSpacing.Left = 8 Caption = 'cases from the first ' ParentColor = False end object Label3: TLabel AnchorSideLeft.Control = CasesEdit AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = ExactBtn AnchorSideTop.Side = asrCenter Left = 317 Height = 15 Top = 41 Width = 31 BorderSpacing.Left = 8 BorderSpacing.Right = 12 Caption = 'cases.' ParentColor = False end object ApproxBtn: TRadioButton AnchorSideLeft.Control = GroupBox1 AnchorSideTop.Control = GroupBox1 Left = 16 Height = 19 Top = 8 Width = 98 BorderSpacing.Left = 16 BorderSpacing.Top = 8 Caption = 'Approximately' TabOrder = 0 end object PcntEdit: TEdit AnchorSideLeft.Control = ApproxBtn AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = ApproxBtn AnchorSideTop.Side = asrCenter Left = 122 Height = 23 Top = 6 Width = 49 Alignment = taRightJustify BorderSpacing.Left = 8 TabOrder = 1 Text = 'PcntEdit' end object ExactBtn: TRadioButton AnchorSideLeft.Control = GroupBox1 Left = 16 Height = 19 Top = 39 Width = 57 BorderSpacing.Left = 16 Caption = 'Exactly' TabOrder = 2 end object ExactEdit: TEdit AnchorSideLeft.Control = ExactBtn AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = ExactBtn AnchorSideTop.Side = asrCenter Left = 81 Height = 23 Top = 37 Width = 56 Alignment = taRightJustify BorderSpacing.Left = 8 BorderSpacing.Bottom = 12 TabOrder = 3 Text = 'ExactEdit' end object CasesEdit: TEdit AnchorSideLeft.Control = Label2 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = ExactBtn AnchorSideTop.Side = asrCenter Left = 256 Height = 23 Top = 37 Width = 53 Alignment = taRightJustify BorderSpacing.Left = 8 TabOrder = 4 Text = 'CasesEdit' end end object ResetBtn: TButton AnchorSideRight.Control = CancelBtn Left = 89 Height = 25 Top = 111 Width = 54 Anchors = [akTop, akRight] AutoSize = True BorderSpacing.Right = 16 Caption = 'Reset' OnClick = ResetBtnClick TabOrder = 1 end object CancelBtn: TButton AnchorSideLeft.Control = GroupBox1 AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = GroupBox1 AnchorSideTop.Side = asrBottom Left = 159 Height = 25 Top = 112 Width = 62 AutoSize = True BorderSpacing.Top = 12 BorderSpacing.Bottom = 12 Caption = 'Cancel' ModalResult = 2 TabOrder = 2 end object OKBtn: TButton AnchorSideLeft.Control = CancelBtn AnchorSideLeft.Side = asrBottom Left = 237 Height = 25 Top = 112 Width = 42 AutoSize = True BorderSpacing.Left = 16 Caption = 'OK' ModalResult = 1 TabOrder = 3 end end