object frmRegistry: TfrmRegistry Left = 275 Top = 368 BorderStyle = bsToolWindow Caption = 'Select Registry Key' ClientHeight = 264 ClientWidth = 488 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 16 Top = 312 Width = 18 Height = 13 Caption = '&Key' FocusControl = txtKey Visible = False end object Label5: TLabel Left = 8 Top = 36 Width = 45 Height = 13 Caption = '&Sub Keys' FocusControl = lbSubKeys end object Label4: TLabel Left = 8 Top = 12 Width = 23 Height = 13 Caption = '&Root' FocusControl = cmbRoot end object Label2: TLabel Left = 8 Top = 208 Width = 41 Height = 13 Caption = '&Location' FocusControl = txtLocation end object btnOk: TButton Left = 327 Top = 234 Width = 75 Height = 23 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 3 OnClick = btnOkClick end object btnCancel: TButton Left = 407 Top = 234 Width = 75 Height = 23 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 4 end object txtKey: TEdit Left = 16 Top = 308 Width = 417 Height = 21 Hint = 'This is the key where the registration information will be kept.' + ' You may modify this key.' TabStop = False ParentShowHint = False ShowHint = True TabOrder = 5 Visible = False end object lbSubKeys: TListBox Left = 64 Top = 32 Width = 417 Height = 169 ItemHeight = 13 TabOrder = 1 OnClick = lbSubKeysClick OnDblClick = lbSubKeysDblClick end object cmbRoot: TComboBox Left = 64 Top = 8 Width = 417 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( 'HKEY_CLASSES_ROOT' 'HKEY_CURRENT_USER' 'HKEY_LOCAL_MACHINE' 'HKEY_USERS' 'HKEY_CURRENT_CONFIG' 'HKEY_DYN_DATA') TabOrder = 0 OnChange = cmbRootChange end object txtLocation: TEdit Left = 64 Top = 204 Width = 417 Height = 21 Hint = 'This is the key where the registration information will be kept.' + ' You may modify this key.' Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 2 end end