object Form21: TForm21 Left = 154 Top = 166 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Get location of application' ClientHeight = 156 ClientWidth = 378 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnActivate = FormActivate PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 24 Top = 8 Width = 329 Height = 13 Caption = 'Please enter the following information of the application for th' + 'is button.' end object Label2: TLabel Left = 8 Top = 56 Width = 94 Height = 13 Caption = 'Name of application' end object Label3: TLabel Left = 8 Top = 104 Width = 107 Height = 13 Caption = 'Location of application' end object Edit1: TEdit Left = 8 Top = 32 Width = 217 Height = 21 MaxLength = 25 TabOrder = 0 end object Edit2: TEdit Left = 8 Top = 80 Width = 305 Height = 21 TabOrder = 1 end object Button1: TButton Left = 320 Top = 79 Width = 49 Height = 25 Caption = '&Browse' TabOrder = 2 OnClick = Button1Click end object Button2: TButton Left = 296 Top = 120 Width = 75 Height = 25 Caption = '&Ok' Default = True TabOrder = 3 OnClick = Button2Click end object OpenDialog1: TOpenDialog DefaultExt = '*.*' FileEditStyle = fsEdit Title = 'Is it in here?' Left = 336 Top = 24 end end