PC World Komputer 1998 July & August/Pcwk78a98.iso/Registry/Mregchg/_SETUP.1/mregchg.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1998-04-08 | 26KB | 991 lines

object Form1: TForm1
  Left = 377
  Top = 233
  Width = 397
  Height = 546
  Caption = 'Remote Registry Change'
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  Menu = MainMenu1
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object Splitter1: TSplitter
    Left = 0
    Top = 329
    Width = 389
    Height = 2
    Cursor = crVSplit
    Align = alTop
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 389
    Height = 329
    Hint = 'Double click to Expand or Restore'
    HelpContext = 120
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    OnDblClick = Panel1DblClick
    OnResize = Panel1Resize
    object Label1: TLabel
      Left = 8
      Top = 4
      Width = 82
      Height = 14
      Caption = '&Computer Names'
      FocusControl = cklList
    end
    object cklList: TCheckListBox
      Left = 2
      Top = 20
      Width = 137
      Height = 305
      Hint = 'Right Click for Menu'
      HelpContext = 400
      OnClickCheck = cklListClickCheck
      Ctl3D = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      ItemHeight = 14
      ParentCtl3D = False
      ParentFont = False
      PopupMenu = PopupMenu1
      Sorted = True
      TabOrder = 0
      TabWidth = 9
      OnDblClick = ComputerList1Click
    end
    object PageControl1: TPageControl
      Left = 145
      Top = 0
      Width = 244
      Height = 329
      ActivePage = tsSingle
      Align = alRight
      MultiLine = True
      TabOrder = 1
      object tsSingle: TTabSheet
        Hint = 'Add, Change or Delete Keys or Values.'
        HelpContext = 130
        Caption = 'Single Key'
        object Label2: TLabel
          Left = 8
          Top = 4
          Width = 21
          Height = 14
          Caption = '&Hive'
          FocusControl = CBRootKey
        end
        object Label3: TLabel
          Left = 8
          Top = 44
          Width = 43
          Height = 14
          Caption = 'Key &Path'
          FocusControl = edKeyPath
        end
        object Label4: TLabel
          Left = 8
          Top = 84
          Width = 58
          Height = 14
          Caption = 'Value &Name'
          FocusControl = edKeyName
        end
        object Label5: TLabel
          Left = 8
          Top = 124
          Width = 55
          Height = 14
          Caption = 'Value &Type'
          FocusControl = cbKeyType
        end
        object Label6: TLabel
          Left = 8
          Top = 164
          Width = 28
          Height = 14
          Caption = '&Value'
          FocusControl = edKeyValue
        end
        object btnRun: TButton
          Left = 154
          Top = 251
          Width = 75
          Height = 25
          Caption = '&Run'
          Default = True
          TabOrder = 5
          OnClick = btnRunClick
        end
        object CBRootKey: TComboBox
          Left = 8
          Top = 20
          Width = 221
          Height = 22
          Hint =
            'Select the Root Key for the operation -- can only be HKEY_LOCAL_' +
            'MACHINE or HKEY_USERS'
          Style = csDropDownList
          ItemHeight = 14
          Items.Strings = (
            'HKEY_LOCAL_MACHINE'
            'HKEY_USERS')
          TabOrder = 0
        end
        object cbKeyType: TComboBox
          Left = 8
          Top = 140
          Width = 221
          Height = 22
          Hint = 'Select the type of value to add or change'
          Style = csDropDownList
          ItemHeight = 14
          Items.Strings = (
            'REG_SZ'
            'REG_DWORD'
            'REG_MULTI_SZ'
            'REG_EXPAND_SZ'
            'REG_NONE'
            '*DELETE KEY*'
            '*DELETE VALUE*')
          TabOrder = 3
        end
        object edKeyPath: TComboBox
          Left = 8
          Top = 60
          Width = 221
          Height = 22
          Hint =
            'Enter the full path to the key.  You may use the '#39'*'#39' in ONE plac' +
            'e in the key to select all subkeys for that key.'
          ItemHeight = 14
          TabOrder = 1
        end
        object edKeyName: TComboBox
          Left = 8
          Top = 100
          Width = 221
          Height = 22
          Hint = 'The Name of the Value to Change or blank for none.'
          ItemHeight = 14
          TabOrder = 2
        end
        object edKeyValue: TComboBox
          Left = 8
          Top = 179
          Width = 221
          Height = 22
          Hint = 'Set the Value Name to This Value'
          ItemHeight = 14
          TabOrder = 4
        end
        object btnStop: TButton
          Left = 8
          Top = 251
          Width = 75
          Height = 25
          Caption = '&Stop'
          Enabled = False
          TabOrder = 6
          OnClick = btnStopClick
        end
        object GroupBox1: TGroupBox
          Left = 8
          Top = 204
          Width = 221
          Height = 41
          Caption = 'Action if Key Not Found'
          TabOrder = 7
          object rbCreatekey: TRadioButton
            Left = 8
            Top = 16
            Width = 109
            Height = 17
            Hint = 'Create or Change the Key'
            Caption = 'Create Ke&y'
            Checked = True
            TabOrder = 0
            TabStop = True
          end
          object rbIgnorekey: TRadioButton
            Left = 124
            Top = 16
            Width = 89
            Height = 17
            Hint = 'If the Key doesn'#39't exist, don'#39't create it.'
            Caption = '&Ignore entry'
            TabOrder = 1
          end
        end
        object sbSingle: TStatusBar
          Left = 0
          Top = 281
          Width = 236
          Height = 19
          Enabled = False
          Panels = <
            item
              Text = 'Sel:'
              Width = 80
            end
            item
              Text = 'Proc:'
              Width = 80
            end
            item
              Text = 'Fail:'
              Width = 80
            end>
          SimplePanel = False
          SizeGrip = False
        end
      end
      object tsGroup: TTabSheet
        HelpContext = 140
        Caption = 'Key Group'
        object Label7: TLabel
          Left = 8
          Top = 4
          Width = 84
          Height = 14
          Caption = 'Source Co&mputer'
        end
        object Label8: TLabel
          Left = 8
          Top = 84
          Width = 57
          Height = 14
          Caption = 'Source &Key'
        end
        object Label9: TLabel
          Left = 8
          Top = 164
          Width = 75
          Height = 14
          Caption = 'De&stination Key'
        end
        object Label10: TLabel
          Left = 8
          Top = 44
          Width = 59
          Height = 14
          Caption = 'Source &Hive'
        end
        object Label11: TLabel
          Left = 8
          Top = 124
          Width = 200
          Height = 14
          Caption = '&Destination Hive (for selected computers)'
        end
        object cbgrpSrcComp: TComboBox
          Left = 8
          Top = 20
          Width = 221
          Height = 22
          ItemHeight = 14
          TabOrder = 0
        end
        object cbGrpSrcKey: TComboBox
          Left = 8
          Top = 100
          Width = 221
          Height = 22
          ItemHeight = 14
          TabOrder = 2
        end
        object cbgrpDestKey: TComboBox
          Left = 8
          Top = 179
          Width = 221
          Height = 22
          ItemHeight = 14
          Items.Strings = (
            '*SAME AS SOURCE*')
          TabOrder = 4
        end
        object btnStopHive: TButton
          Left = 8
          Top = 251
          Width = 75
          Height = 25
          Caption = '&Stop'
          TabOrder = 6
          OnClick = btnStopHiveClick
        end
        object btnRunHive: TButton
          Left = 154
          Top = 251
          Width = 75
          Height = 25
          Caption = '&Run'
          Default = True
          TabOrder = 5
          OnClick = btnCreateREGClick
        end
        object cbGrpSrcRootKey: TComboBox
          Left = 8
          Top = 60
          Width = 221
          Height = 22
          Style = csDropDownList
          ItemHeight = 14
          Items.Strings = (
            'HKEY_LOCAL_MACHINE'
            'HKEY_USERS')
          TabOrder = 1
        end
        object cbGrpDestRootKey: TComboBox
          Left = 8
          Top = 140
          Width = 221
          Height = 22
          Style = csDropDownList
          ItemHeight = 14
          Items.Strings = (
            '*SAME AS SOURCE*'
            'HKEY_LOCAL_MACHINE'
            'HKEY_USERS')
          TabOrder = 3
        end
        object chkDeleteBeforeCopy: TCheckBox
          Left = 12
          Top = 220
          Width = 221
          Height = 17
          Caption = 'Delete Destination Key &Before Copying'
          TabOrder = 7
        end
        object sbGroup: TStatusBar
          Left = 0
          Top = -19
          Width = 0
          Height = 19
          Enabled = False
          Panels = <
            item
              Text = 'Sel:'
              Width = 80
            end
            item
              Text = 'Proc:'
              Width = 80
            end
            item
              Text = 'Fail:'
              Width = 80
            end>
          SimplePanel = False
          SizeGrip = False
        end
      end
      object TabSheet1: TTabSheet
        Caption = 'Additional'
        TabVisible = False
        object grpIP: TGroupBox
          Left = 20
          Top = 104
          Width = 193
          Height = 73
          Caption = 'IP Address Lookup'
          TabOrder = 0
          object btnIPLookup: TButton
            Left = 12
            Top = 16
            Width = 169
            Height = 25
            Caption = 'Lookup IP Addresses'
            TabOrder = 0
            OnClick = btnIPLookupClick
          end
          object btnIPStopLookup: TButton
            Left = 12
            Top = 41
            Width = 169
            Height = 25
            Caption = 'Stop Lookup'
            Enabled = False
            TabOrder = 1
            OnClick = btnIPStopLookupClick
          end
        end
        object grpChangeUserRights: TGroupBox
          Left = 20
          Top = 12
          Width = 193
          Height = 73
          Caption = 'Change User Rights'
          TabOrder = 1
          object btnChgUserRights: TButton
            Left = 12
            Top = 28
            Width = 169
            Height = 25
            Caption = 'Change User Rights'
            TabOrder = 0
            OnClick = btnChgUserRightsClick
          end
        end
      end
      object TabSheet2: TTabSheet
        HelpContext = 160
        Caption = 'Logging'
        object GroupBox2: TGroupBox
          Left = 6
          Top = 4
          Width = 225
          Height = 97
          Caption = 'On Failure to Connect'
          TabOrder = 0
          object edConnectFailure: TEdit
            Left = 12
            Top = 44
            Width = 181
            Height = 22
            TabOrder = 0
            Text = 'ConnectFail.log'
          end
          object chkFailToConnect: TCheckBox
            Left = 12
            Top = 24
            Width = 169
            Height = 17
            Caption = 'Log Failure to Connect to File:'
            State = cbChecked
            TabOrder = 1
          end
          object btnConnectFailure: TButton
            Left = 196
            Top = 44
            Width = 23
            Height = 22
            Caption = '...'
            Default = True
            TabOrder = 2
            OnClick = btnConnectFailureClick
          end
          object btnClearConnectFail: TButton
            Left = 124
            Top = 72
            Width = 75
            Height = 17
            Caption = 'Clear Now'
            TabOrder = 3
            OnClick = btnClearConnectFailClick
          end
          object btnViewConnectFailure: TButton
            Left = 28
            Top = 72
            Width = 75
            Height = 17
            Caption = 'View Log'
            TabOrder = 4
            OnClick = btnViewConnectFailureClick
          end
        end
        object GroupBox3: TGroupBox
          Left = 6
          Top = 104
          Width = 225
          Height = 97
          Caption = 'On Operation Failure'
          TabOrder = 1
          object edGeneralFailure: TEdit
            Left = 12
            Top = 44
            Width = 181
            Height = 22
            TabOrder = 0
            Text = 'GeneralFail.log'
          end
          object chkGeneralFailure: TCheckBox
            Left = 12
            Top = 24
            Width = 193
            Height = 17
            Caption = 'Log Operation Failures to File:'
            State = cbChecked
            TabOrder = 1
          end
          object btnGeneralFailure: TButton
            Left = 196
            Top = 44
            Width = 23
            Height = 22
            Caption = '...'
            TabOrder = 2
            OnClick = btnGeneralFailureClick
          end
          object btnClearGeneralFail: TButton
            Left = 124
            Top = 72
            Width = 75
            Height = 17
            Caption = 'Clear Now'
            TabOrder = 3
            OnClick = btnClearGeneralFailClick
          end
          object btnViewGeneralFailure: TButton
            Left = 28
            Top = 72
            Width = 75
            Height = 17
            Caption = 'View Log'
            TabOrder = 4
            OnClick = btnViewGeneralFailureClick
          end
        end
        object GroupBox4: TGroupBox
          Left = 6
          Top = 200
          Width = 225
          Height = 97
          Caption = 'On Operation Success'
          TabOrder = 2
          object edGeneralSuccess: TEdit
            Left = 12
            Top = 44
            Width = 181
            Height = 22
            TabOrder = 0
            Text = 'GeneralSuccess.log'
          end
          object chkGeneralSuccess: TCheckBox
            Left = 12
            Top = 24
            Width = 177
            Height = 17
            Caption = 'Log Operation Success to File:'
            State = cbChecked
            TabOrder = 1
          end
          object btnGeneralSuccess: TButton
            Left = 196
            Top = 44
            Width = 23
            Height = 22
            Caption = '...'
            TabOrder = 2
            OnClick = btnGeneralSuccessClick
          end
          object btnClearGeneralSuccess: TButton
            Left = 124
            Top = 72
            Width = 75
            Height = 17
            Caption = 'Clear Now'
            TabOrder = 3
            OnClick = btnClearGeneralSuccessClick
          end
          object btnViewGeneralSuccess: TButton
            Left = 28
            Top = 72
            Width = 75
            Height = 17
            Caption = 'View Log'
            TabOrder = 4
            OnClick = btnViewGeneralSuccessClick
          end
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 331
    Width = 389
    Height = 150
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel2'
    TabOrder = 1
    OnResize = Panel2Resize
    object mStat: TMemo
      Left = 2
      Top = 3
      Width = 384
      Height = 144
      HelpContext = 120
      TabStop = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssBoth
      TabOrder = 0
    end
  end
  object SB1: TStatusBar
    Left = 0
    Top = 481
    Width = 389
    Height = 19
    Panels = <
      item
        Width = 100
      end
      item
        Width = 100
      end>
    SimplePanel = False
  end
  object MainMenu1: TMainMenu
    Left = 92
    Top = 336
    object File1: TMenuItem
      Caption = '&File'
      object SaveComputerNames1: TMenuItem
        Caption = '&Save Computer Names'
        OnClick = SaveComputerNames1Click
      end
      object LoadComputerNames1: TMenuItem
        Caption = '&Load Computer Names'
        OnClick = LoadComputerNames1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object ClearLog1: TMenuItem
        Caption = '&Clear Log'
        OnClick = ClearLog1Click
      end
      object SaveLogtoFile1: TMenuItem
        Caption = 'Save Log to &File'
        OnClick = SaveLogtoFile1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      object ComputerList1: TMenuItem
        Caption = 'Edit &Computer List ...'
        HelpContext = 240
        OnClick = ComputerList1Click
      end
      object SearchNetwork2: TMenuItem
        Caption = 'Searc&h Network ...'
        HelpContext = 230
        OnClick = SearchNetwork1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object SelectAll1: TMenuItem
        Caption = '&Select All'
        HelpContext = 500
        OnClick = SelectAll1Click
      end
      object SelectNone1: TMenuItem
        Caption = 'Select &None'
        HelpContext = 500
        OnClick = SelectNone1Click
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object GroupSelect1: TMenuItem
        Caption = '&Group Select ...'
        HelpContext = 510
        OnClick = SelectGroup1Click
      end
      object GroupDeselect1: TMenuItem
        Caption = 'Group &Deselect ...'
        HelpContext = 510
        OnClick = UnSelectGroup1Click
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object InvertSelection2: TMenuItem
        Caption = '&Invert Selections'
        HelpContext = 520
        OnClick = InvertSelection1Click
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object RememberSelections2: TMenuItem
        Caption = '&Remember Selections'
        HelpContext = 515
        OnClick = RememberSelections1Click
      end
      object RestoreSelections2: TMenuItem
        Caption = 'Res&tore Selections'
        HelpContext = 515
        OnClick = RestoreSelections1Click
      end
      object N16: TMenuItem
        Caption = '-'
      end
      object SelectfromLogFile1: TMenuItem
        Caption = 'Select from &Log File ...'
        HelpContext = 525
        OnClick = SelectfromLogFile1Click
      end
      object N17: TMenuItem
        Caption = '-'
      end
      object CreateGroup1: TMenuItem
        Caption = 'Sa&ve Group'
        HelpContext = 530
        OnClick = CreateGroup1Click
      end
      object SelectfromGroupFile1: TMenuItem
        Caption = 'Select &from Saved Group'
        HelpContext = 530
        OnClick = SelectfromGroupFile1Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object ExpandWindow2: TMenuItem
        Caption = '&Expand Window'
        HelpContext = 535
        OnClick = Panel1DblClick
      end
    end
    object Advanced1: TMenuItem
      Caption = '&Advanced'
      object CheckforKeyorValue1: TMenuItem
        Caption = '&Check for Key or Value ...'
        HelpContext = 150
        OnClick = btnCheckKeyorValueClick
      end
      object ShutDownComputers1: TMenuItem
        Caption = '&Shutdown Systems ...'
        HelpContext = 170
        OnClick = btnRestartSystemsClick
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object ApplyFromFile1: TMenuItem
        Caption = 'Apply &from File ...'
        HelpContext = 210
        OnClick = ApplyFromFile1Click
      end
      object CreateImportFile1: TMenuItem
        Caption = 'Create '#39'&Apply From'#39' File ...'
        HelpContext = 210
        OnClick = CreateImportFile1Click
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object ApplyfromREGfile1: TMenuItem
        Caption = '&Import from REG File ...'
        HelpContext = 180
        OnClick = ApplyfromREGfile1Click
      end
      object CreateREGfilefromKey1: TMenuItem
        Caption = 'Advanced ® File Operations ...'
        HelpContext = 180
        OnClick = CreateREGfilefromKey1Click
      end
      object N20: TMenuItem
        Caption = '-'
      end
      object ChangeUserRights1: TMenuItem
        Caption = 'Change &User Rights'
        HelpContext = 200
        OnClick = btnChgUserRightsClick
      end
      object N21: TMenuItem
        Caption = '-'
      end
      object LookupIPAddress: TMenuItem
        Caption = '&Lookup IP Addresses'
        HelpContext = 190
        OnClick = btnIPLookupClick
      end
      object N22: TMenuItem
        Caption = '-'
      end
      object CreateCallBatchFile1: TMenuItem
        Caption = 'Create '#39'Call'#39' Batch File'
        HelpContext = 220
        OnClick = CreateCallBatchFile1Click
      end
    end
    object Options1: TMenuItem
      Caption = 'Options'
      object AllowConnectRetries1: TMenuItem
        Caption = 'Allow Connect Retries'
        Hint = 'When checked, retries connection to remote machines'
        OnClick = AllowConnectRetries1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object Contents1: TMenuItem
        Caption = '&Contents'
        HelpContext = 1
        OnClick = Contents1Click
      end
      object Support1: TMenuItem
        Caption = 'Eytcheson &Software Home Page'
        OnClick = Support1Click
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object Register1: TMenuItem
        Caption = '&Registration Form'
        OnClick = Register1Click
      end
      object CCreg1: TMenuItem
        Caption = '&Secure Credit Card Registration'
        OnClick = CCreg1Click
      end
      object EnterRegistrationKey1: TMenuItem
        Caption = '&Enter Registration Key'
        OnClick = EnterRegistrationKey1Click
      end
      object ReRegisterAddComputers1: TMenuItem
        Caption = '&Re-Register (Add Computers)'
        Visible = False
        OnClick = ReRegisterAddComputers1Click
      end
      object N23: TMenuItem
        Caption = '-'
      end
      object Abo1: TMenuItem
        Caption = '&About'
        OnClick = Abo1Click
      end
    end
  end
  object SD1: TSaveDialog
    DefaultExt = '*.log'
    FileName = 'Registry Update.Log'
    Filter = 'Log Files|*.log|Text Files|*.txt'
    Options = [ofOverwritePrompt, ofHideReadOnly]
    Title = 'Save Change Log'
    Left = 64
    Top = 336
  end
  object PopupMenu1: TPopupMenu
    Left = 36
    Top = 336
    object SelectAll2: TMenuItem
      Caption = 'Select All'
      HelpContext = 500
      OnClick = SelectAll1Click
    end
    object SelectNone2: TMenuItem
      Caption = 'Select None'
      HelpContext = 500
      OnClick = SelectNone1Click
    end
    object N11: TMenuItem
      Caption = '-'
    end
    object SelectGroup1: TMenuItem
      Caption = 'Group Select ...'
      HelpContext = 510
      OnClick = SelectGroup1Click
    end
    object UnSelectGroup1: TMenuItem
      Caption = 'Group Deselect ...'
      HelpContext = 510
      OnClick = UnSelectGroup1Click
    end
    object N15: TMenuItem
      Caption = '-'
    end
    object RememberSelections1: TMenuItem
      Caption = 'Remember Selections'
      HelpContext = 515
      OnClick = RememberSelections1Click
    end
    object RestoreSelections1: TMenuItem
      Caption = 'Restore Selections'
      Enabled = False
      HelpContext = 515
      OnClick = RestoreSelections1Click
    end
    object N18: TMenuItem
      Caption = '-'
    end
    object InvertSelection1: TMenuItem
      Caption = 'Invert Selection'
      HelpContext = 520
      OnClick = InvertSelection1Click
    end
    object N12: TMenuItem
      Caption = '-'
    end
    object SelectfromLogFile2: TMenuItem
      Caption = 'Select from Log File'
      HelpContext = 525
      OnClick = SelectfromLogFile1Click
    end
    object N19: TMenuItem
      Caption = '-'
    end
    object SaveGroup1: TMenuItem
      Caption = 'Save Group'
      HelpContext = 530
      OnClick = CreateGroup1Click
    end
    object RestorefromSavedGroup1: TMenuItem
      Caption = 'Restore from Saved Group'
      HelpContext = 530
      OnClick = SelectfromGroupFile1Click
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object AddEntry1: TMenuItem
      Caption = 'Add Single Entry'
      HelpContext = 505
      OnClick = AddEntry1Click
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object ExpandWindow1: TMenuItem
      Caption = 'Expand Window'
      HelpContext = 535
      OnClick = Panel1DblClick
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '*.dat'
    FileName = 'computers.dat'
    Filter = 'Multi-Remote Registry Change Datafile|*.dat'
    Left = 8
    Top = 336
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'dat'
    FileName = 'Computers.dat'
    Filter = 'Multi-Remote Registry Change Data Files|*.dat'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn]
    Left = 120
    Top = 336
  end
end