object ImportForm: TImportForm Left = 224 Top = 130 BorderStyle = bsDialog Caption = 'PAB data Import' ClientHeight = 154 ClientWidth = 320 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label3: TLabel Left = 10 Top = 85 Width = 85 Height = 13 Caption = 'Import file location' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object PabFormatRadioGroup: TRadioGroup Left = 155 Top = 5 Width = 162 Height = 75 Caption = 'PAB Version' ItemIndex = 1 Items.Strings = ( 'Version 1.6 - 3.0' 'Version 4.0') TabOrder = 6 Visible = False OnClick = PabFormatRadioGroupClick end object LocationEdit: TEdit Left = 6 Top = 100 Width = 249 Height = 21 TabOrder = 0 end object BrowseButton: TButton Left = 259 Top = 100 Width = 55 Height = 22 Caption = 'Browse' TabOrder = 1 OnClick = BrowseButtonClick end object CloseButton: TBitBtn Left = 247 Top = 129 Width = 70 Height = 24 Caption = '&Close' Default = True ModalResult = 1 TabOrder = 2 Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877 F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F 000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333 338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333 45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F 3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F 000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333 338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333 4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888 8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0 333333333333888888F3333F00003333330000003333333333338FFFF8F3333F 0000} NumGlyphs = 2 end object HelpButton: TBitBtn Left = 175 Top = 129 Width = 70 Height = 24 TabOrder = 3 OnClick = HelpButtonClick Kind = bkHelp end object ImportButton: TBitBtn Left = 103 Top = 129 Width = 70 Height = 24 Caption = 'Import' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = ImportButtonClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0 00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800 F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0 00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0 F033777777777337F73309999990FFF0033377777777FFF77333099999000000 3333777777777777333333399033333333333337773333333333333903333333 3333333773333333333333303333333333333337333333333333} NumGlyphs = 2 end object DelimitedFormatGroupBox: TGroupBox Left = 155 Top = 5 Width = 162 Height = 75 Caption = 'Data Fromat' TabOrder = 5 object Label1: TLabel Left = 16 Top = 54 Width = 63 Height = 13 Caption = 'Field wrapper' end object WrapperEdit: TEdit Left = 92 Top = 49 Width = 25 Height = 21 MaxLength = 1 TabOrder = 0 OnChange = WrapperChanged end object TabRButton: TRadioButton Left = 11 Top = 32 Width = 120 Height = 17 Caption = 'Tab Delimited' TabOrder = 1 OnClick = RadioButtonClick end object CommaRButton: TRadioButton Left = 11 Top = 14 Width = 120 Height = 17 Caption = 'Comma Delimited' Checked = True TabOrder = 2 TabStop = True OnClick = RadioButtonClick end end object ImportFileFormatRadioGroup: TRadioGroup Left = 8 Top = 5 Width = 140 Height = 75 Caption = 'Import File Format' ItemIndex = 0 Items.Strings = ( 'Delimited' 'PAB') TabOrder = 7 OnClick = ImportFileFormatRadioGroupClick end object OpenDialog: TOpenDialog DefaultExt = 'txt' Filter = 'Text files (*.txt)|*.txt|PAB files (*.pab)|*.pab|All files (*.*)' + '|*.*' Options = [ofNoChangeDir, ofPathMustExist, ofFileMustExist] Title = 'Select Import File' Left = 16 Top = 127 end end