object Echofrm: TEchofrm Left = 95 Top = 108 BorderStyle = bsDialog Caption = 'Echo' ClientHeight = 260 ClientWidth = 339 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OldCreateOrder = True Position = poScreenCenter OnCreate = FormCreate OnPaint = FormPaint PixelsPerInch = 96 TextHeight = 13 object Image1: TImage Left = -77 Top = 0 Width = 416 Height = 27 Stretch = True end object Bevel5: TBevel Left = 177 Top = 135 Width = 13 Height = 18 Shape = bsLeftLine end object Label1: TLabel Left = 10 Top = 143 Width = 57 Height = 13 Caption = '&Delay in ms:' FocusControl = TrackBar1 end object Label2: TLabel Left = 274 Top = 167 Width = 44 Height = 20 Caption = '50ms' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Bevel1: TBevel Left = 146 Top = 55 Width = 191 Height = 81 Shape = bsLeftLine end object Bevel2: TBevel Left = 138 Top = 127 Width = 161 Height = 9 Shape = bsTopLine end object Label3: TLabel Left = 306 Top = 119 Width = 3 Height = 16 Caption = 't' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 130 Top = 39 Width = 46 Height = 13 Caption = 'Amplitude' end object Bevel3: TBevel Left = 167 Top = 135 Width = 20 Height = 2 Shape = bsTopLine end object Bevel4: TBevel Left = 89 Top = 151 Width = 89 Height = 9 Shape = bsTopLine end object Label5: TLabel Left = 10 Top = 195 Width = 103 Height = 13 Caption = '&Number of repetitions:' FocusControl = TrackBar2 end object Label6: TLabel Left = 178 Top = 211 Width = 11 Height = 20 Caption = '1' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Image3: TImage Left = 275 Top = 0 Width = 64 Height = 260 Align = alRight AutoSize = True Picture.Data = {} Transparent = True end object Image2: TImage Left = 8 Top = 8 Width = 32 Height = 32 AutoSize = True Picture.Data = {} Transparent = True end object RadioGroup1: TRadioGroup Left = 10 Top = 47 Width = 105 Height = 81 Caption = '&Echo type' ItemIndex = 0 Items.Strings = ( 'Simple' 'Multiple') TabOrder = 0 OnClick = RadioGroup1Click end object Button1: TButton Left = 254 Top = 202 Width = 75 Height = 25 Caption = '&OK' TabOrder = 1 OnClick = Button1Click end object Button2: TButton Left = 254 Top = 227 Width = 75 Height = 25 Caption = '&Cancel' TabOrder = 2 OnClick = Button2Click end object TrackBar1: TTrackBar Left = 2 Top = 161 Width = 265 Height = 33 Max = 2000 Min = 50 Orientation = trHorizontal PageSize = 1 Frequency = 100 Position = 50 SelEnd = 0 SelStart = 0 TabOrder = 3 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = TrackBar1Change end object TrackBar2: TTrackBar Left = 2 Top = 211 Width = 169 Height = 45 Min = 1 Orientation = trHorizontal Frequency = 1 Position = 1 SelEnd = 0 SelStart = 0 TabOrder = 4 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = TrackBar2Change end end