object RenameMacroForm: TRenameMacroForm Left = 466 Top = 303 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Rename Macro' ClientHeight = 174 ClientWidth = 346 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 8 Top = 24 Width = 65 Height = 13 Caption = 'Current Name' end object Label2: TLabel Left = 8 Top = 60 Width = 53 Height = 13 Caption = 'New Name' end object CurrentName: TEdit Left = 85 Top = 22 Width = 241 Height = 21 TabStop = False ParentColor = True ReadOnly = True TabOrder = 0 end object NewName: TEdit Left = 85 Top = 60 Width = 241 Height = 21 TabOrder = 1 end object Button1: TButton Left = 69 Top = 110 Width = 81 Height = 25 Caption = '&OK' Default = True TabOrder = 2 OnClick = Button1Click end object Button2: TButton Left = 189 Top = 110 Width = 89 Height = 25 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 3 end object Status: AxStatusBar Left = 0 Top = 157 Width = 346 Height = 17 Align = alBottom Alignment = taLeftJustify TabOrder = 4 InfoColor = clBlack ErrorColor = clRed end end