object UpsizingForm: TUpsizingForm Left = 235 Top = 132 ActiveControl = HelpBtn BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Upsizing Expert' ClientHeight = 406 ClientWidth = 625 Font.Color = clWindowText Font.Height = -8 Font.Name = 'System' Font.Style = [] Position = poScreenCenter OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 120 TextHeight = 20 object Divider: TBevel Left = 0 Top = 351 Width = 626 Height = 4 end object ExpertNbk: TNotebook Left = 0 Top = 0 Width = 625 Height = 351 Align = alTop Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] PageIndex = 1 ParentFont = False TabOrder = 0 object TPage Left = 0 Top = 0 Caption = 'Source Alias' object SrcHelpLbl: TLabel Left = 15 Top = 25 Width = 331 Height = 111 AutoSize = False Caption = 'General help text for this screen.' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object SrcSelectNbk: TNotebook Left = 365 Top = 25 Width = 231 Height = 316 TabOrder = 0 object TPage Left = 0 Top = 0 Caption = 'Alias Page' object SrcAliasLbl: TLabel Left = 0 Top = 0 Width = 231 Height = 16 AutoSize = False Caption = 'Source Alias Names' end object SrcAliasLBox: TListBox Left = 0 Top = 20 Width = 231 Height = 296 ItemHeight = 16 TabOrder = 0 OnDblClick = NextBtnClick end end object TPage Left = 0 Top = 0 Caption = 'Directory Page' object SrcDirLBox: TDirectoryListBox Left = 0 Top = 0 Width = 231 Height = 286 Ctl3D = True ItemHeight = 16 ParentCtl3D = False TabOrder = 0 end object SrcDrvCBox: TDriveComboBox Left = 0 Top = 291 Width = 231 Height = 22 DirList = SrcDirLBox TabOrder = 1 end end end object SrcDirRBtn: TRadioButton Left = 65 Top = 180 Width = 266 Height = 20 Caption = 'Select by directory' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = SrcDirRBtnClick end object SrcHelpNbk: TNotebook Left = 15 Top = 220 Width = 331 Height = 121 TabOrder = 2 object TPage Left = 0 Top = 0 Caption = 'Alias Page' object SrcAliasHelpLbl: TLabel Left = 0 Top = 0 Width = 331 Height = 121 Align = alClient AutoSize = False Caption = 'Help text for selecting by alias name.' end end object TPage Left = 0 Top = 0 Caption = 'Directory Page' object SrcDirHelpLbl: TLabel Left = 0 Top = 0 Width = 331 Height = 121 Align = alClient AutoSize = False Caption = 'Help text for selecting by directory.' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end end end object SrcAliasRBtn: TRadioButton Left = 65 Top = 150 Width = 266 Height = 20 Caption = 'Select by alias name' Checked = True Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 TabStop = True OnClick = SrcAliasRBtnClick end end object TPage Left = 0 Top = 0 Caption = 'Target Alias' object TgtHelpLbl: TLabel Left = 335 Top = 40 Width = 276 Height = 301 AutoSize = False Caption = 'Select an alias for the database you want to move your data to.' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object TgtAliasLbl: TLabel Left = 15 Top = 15 Width = 120 Height = 16 Caption = 'Target Alias Names' end object TgtAliasLBox: TListBox Left = 15 Top = 40 Width = 291 Height = 301 ItemHeight = 13 Items.Strings = ( '') Style = lbOwnerDrawVariable TabOrder = 0 OnClick = TgtAliasLBoxClick OnDblClick = NextBtnClick OnDrawItem = TgtAliasLBoxDrawItem OnMeasureItem = TgtAliasLBoxMeasureItem end end object TPage Left = 0 Top = 0 Caption = 'Select Tables' object TblLeftLbl: TLabel Left = 15 Top = 65 Width = 266 Height = 16 AutoSize = False Caption = 'Available Tables:' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False IsControl = True end object TblRightLbl: TLabel Left = 345 Top = 65 Width = 266 Height = 16 AutoSize = False Caption = 'Selected Tables:' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False IsControl = True end object TblHelpLbl: TLabel Left = 15 Top = 10 Width = 596 Height = 56 AutoSize = False Caption = 'Select the list of tables to upsize by moving them from the list' + ' of available tables to the list of selected tables. Single arro' + 'w buttons move all selected tables, and double arrow buttons mov' + 'e all tables. You can also drag and drop table names.' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object TblIncBtn: TBitBtn Left = 290 Top = 134 Width = 46 Height = 30 Caption = '>' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = TblIncBtnClick IsControl = True end object TblIncAllBtn: TBitBtn Left = 290 Top = 175 Width = 46 Height = 30 Caption = '>>' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = TblIncAllBtnClick IsControl = True end object TblExcBtn: TBitBtn Left = 290 Top = 215 Width = 46 Height = 30 Caption = '<' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = TblExcBtnClick IsControl = True end object TblExcAllBtn: TBitBtn Left = 290 Top = 255 Width = 46 Height = 30 Caption = '<<' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = TblExcAllBtnClick IsControl = True end object TblRightLBox: TListBox Left = 345 Top = 85 Width = 266 Height = 256 Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 MultiSelect = True ParentFont = False Sorted = True TabOrder = 4 OnClick = TblRightLBoxClick OnDblClick = TblExcBtnClick IsControl = True end object TblLeftLBox: TListBox Left = 15 Top = 85 Width = 266 Height = 256 Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 MultiSelect = True ParentFont = False Sorted = True TabOrder = 5 OnClick = TblLeftLBoxClick OnDblClick = TblIncBtnClick IsControl = True end end object TPage Left = 0 Top = 0 Caption = 'Select Modify' object ModHelpLbl: TLabel Left = 15 Top = 5 Width = 596 Height = 56 AutoSize = False Caption = 'You can highlight a table with unacceptable translation, and cli' + 'ck '#39'Modify...'#39' to modify the information. If all indicated infor' + 'mation is acceptable then click '#39'Upsize'#39' to continue.' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object ModTablesGrid: TStringGrid Left = 15 Top = 65 Width = 576 Height = 239 ColCount = 4 DefaultColWidth = 80 DefaultRowHeight = 18 RowCount = 12 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine] ScrollBars = ssNone TabOrder = 0 OnDblClick = ModDoItemBtnClick OnTopLeftChanged = ModTablesGridTopLeftChanged ColWidths = ( 80 116 117 143) end object ModDoItemBtn: TButton Left = 89 Top = 310 Width = 446 Height = 31 Caption = '&Modify Mapping Information For Selected Item' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = ModDoItemBtnClick end object ModTablesScrl: TScrollBar Left = 590 Top = 65 Width = 21 Height = 239 Kind = sbVertical Min = 1 Position = 1 TabOrder = 2 TabStop = False OnScroll = ModTablesScrlScroll end end object TPage Left = 0 Top = 0 Caption = 'Modify Fields' object FldHelpLbl: TLabel Left = 15 Top = 10 Width = 596 Height = 56 AutoSize = False Caption = 'Here you can view or modified the names and values that the upsi' + 'zing expert has selected for the tables that will be created on ' + 'the target database. Select a field name in the list box on the ' + 'left, and view or modify the values presented.' end object FldSrcFldsLbl: TLabel Left = 15 Top = 70 Width = 191 Height = 16 AutoSize = False Caption = 'Source Field Names' end object FldFldTypeLbl: TLabel Left = 210 Top = 190 Width = 100 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Field Type:' Color = clBtnFace ParentColor = False end object FldFldNameLbl: TLabel Left = 210 Top = 160 Width = 100 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Field Name:' end object FldTblNameLbl: TLabel Left = 210 Top = 115 Width = 100 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Table Name:' end object FldReqLbl: TLabel Left = 210 Top = 220 Width = 100 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Is Required:' end object FldMinValLbl: TLabel Left = 210 Top = 250 Width = 100 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Min Value:' end object FldMaxValLbl: TLabel Left = 210 Top = 280 Width = 100 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Max Value:' end object FldDefaultLbl: TLabel Left = 210 Top = 311 Width = 100 Height = 17 Alignment = taRightJustify AutoSize = False Caption = 'Default:' end object FldSourceLbl: TLabel Left = 315 Top = 90 Width = 146 Height = 16 Alignment = taCenter AutoSize = False Caption = 'Source' Color = clBtnFace ParentColor = False end object FldTargetLbl: TLabel Left = 465 Top = 90 Width = 146 Height = 16 Alignment = taCenter AutoSize = False Caption = 'Target' Color = clBtnFace ParentColor = False end object FldNameLBox: TListBox Left = 15 Top = 90 Width = 191 Height = 251 ItemHeight = 16 TabOrder = 0 OnClick = FldNameLBoxClick end object FldSrcTypeEdit: TEdit Left = 315 Top = 185 Width = 146 Height = 24 TabStop = False Font.Color = clGray Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 9 Text = 'FldSrcTypeEdit' end object FldTgtNameEdit: TEdit Left = 465 Top = 155 Width = 146 Height = 24 TabOrder = 2 Text = 'FldTgtNameEdit' OnChange = FldTgtNameEditChange end object FldTgtTypeCBox: TComboBox Left = 465 Top = 185 Width = 146 Height = 24 Style = csDropDownList ItemHeight = 16 Items.Strings = ( 'False' 'True') TabOrder = 3 OnChange = FldTgtTypeCBoxChange end object FldSrcTblNameEdit: TEdit Left = 315 Top = 110 Width = 146 Height = 24 TabStop = False Font.Color = clGray Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 8 Text = 'FldSrcTblNameEdit' end object FldTgtTblNameEdit: TEdit Left = 465 Top = 110 Width = 146 Height = 24 TabOrder = 1 Text = 'FldTgtTblNameEdit' OnChange = FldTgtTblNameEditChange end object FldSrcReqEdit: TEdit Left = 315 Top = 215 Width = 146 Height = 24 TabStop = False Font.Color = clGray Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 10 Text = 'FldSrcReqEdit' end object FldSrcMinEdit: TEdit Left = 315 Top = 245 Width = 146 Height = 24 TabStop = False Font.Color = clGray Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 11 Text = 'FldSrcMinEdit' end object FldTgtMinEdit: TEdit Left = 465 Top = 245 Width = 146 Height = 24 TabOrder = 5 Text = 'FldTgtMinEdit' OnEnter = FldTgtMinMaxDefEditEnter OnExit = FldTgtMinMaxDefEditExit end object FldSrcMaxEdit: TEdit Left = 315 Top = 275 Width = 146 Height = 24 TabStop = False Font.Color = clGray Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 12 Text = 'FldSrcMaxEdit' end object FldTgtMaxEdit: TEdit Left = 465 Top = 275 Width = 146 Height = 24 TabOrder = 6 Text = 'FldTgtMaxEdit' OnEnter = FldTgtMinMaxDefEditEnter OnExit = FldTgtMinMaxDefEditExit end object FldSrcDefEdit: TEdit Left = 315 Top = 305 Width = 146 Height = 24 TabStop = False Font.Color = clGray Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 13 Text = 'FldSrcDefEdit' end object FldTgtDefEdit: TEdit Left = 465 Top = 305 Width = 146 Height = 24 TabOrder = 7 Text = 'FldTgtDefEdit' OnEnter = FldTgtMinMaxDefEditEnter OnExit = FldTgtMinMaxDefEditExit end object FldTgtReqCBox: TComboBox Left = 465 Top = 215 Width = 146 Height = 24 Style = csDropDownList ItemHeight = 16 Items.Strings = ( 'False' 'True') TabOrder = 4 OnChange = FldTgtReqCBoxChange end end object TPage Left = 0 Top = 0 Caption = 'Modify Indexes' object IdxLeftLbl: TLabel Left = 15 Top = 85 Width = 271 Height = 16 AutoSize = False Caption = 'Available Fields For Indexing:' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False IsControl = True end object IdxRigthLbl: TLabel Left = 345 Top = 85 Width = 266 Height = 16 AutoSize = False Caption = 'Selected Fields For Indexing:' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False IsControl = True end object IdxOriginLbl: TLabel Left = 235 Top = 10 Width = 331 Height = 20 AutoSize = False Caption = 'Original Index Expression:' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object IdxNameLbl: TLabel Left = 20 Top = 10 Width = 201 Height = 16 AutoSize = False Caption = 'Index Name:' end object IdxIncBtn: TBitBtn Left = 290 Top = 125 Width = 46 Height = 30 Caption = '>' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = IdxIncBtnClick IsControl = True end object IdxIncAllBtn: TBitBtn Left = 290 Top = 165 Width = 46 Height = 30 Caption = '>>' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = IdxIncAllBtnClick IsControl = True end object IdxExcBtn: TBitBtn Left = 290 Top = 205 Width = 46 Height = 30 Caption = '<' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = IdxExcBtnClick IsControl = True end object IdxExcAllBtn: TBitBtn Left = 290 Top = 245 Width = 46 Height = 30 Caption = '<<' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = IdxExcAllBtnClick IsControl = True end object IdxUpBtn: TBitBtn Left = 440 Top = 310 Width = 30 Height = 30 Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 6 OnClick = IdxUpBtnClick Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888800008888888888888888888800008888888888888888888800008888 8888888888888888000088888888888888888888000088888888888888888888 0000888888888888888888880000888888888888888888880000888880888888 8088888800008888880888880888888800008888888088808888888800008888 8888080888888888000088888888808888888888000088888888888888888888 0000888888888888888888880000888888888888888888880000888888888888 8888888800008888888888888888888800008888888888888888888800008888 88888888888888880000} end object IdxDownBtn: TBitBtn Left = 480 Top = 310 Width = 30 Height = 30 Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 7 OnClick = IdxDownBtnClick Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888800008888888888888888888800008888888888888888888800008888 8888888888888888000088888888888888888888000088888888888888888888 0000888888888888888888880000888888888888888888880000888888888088 8888888800008888888808088888888800008888888088808888888800008888 8808888808888888000088888088888880888888000088888888888888888888 0000888888888888888888880000888888888888888888880000888888888888 8888888800008888888888888888888800008888888888888888888800008888 88888888888888880000} end object IdxRightLBox: TListBox Left = 345 Top = 110 Width = 266 Height = 191 Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 MultiSelect = True ParentFont = False TabOrder = 5 OnClick = IdxRightLBoxClick OnDblClick = IdxExcBtnClick IsControl = True end object IdxOriginMemo: TMemo Left = 235 Top = 30 Width = 376 Height = 46 Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True ScrollBars = ssVertical TabOrder = 8 end object IdxLeftLBox: TListBox Left = 15 Top = 110 Width = 266 Height = 231 Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 MultiSelect = True ParentFont = False TabOrder = 0 OnClick = IdxLeftLBoxClick OnDblClick = IdxIncBtnClick IsControl = True end object IdxTgtNameEdit: TEdit Left = 20 Top = 30 Width = 201 Height = 24 TabOrder = 9 Text = 'IdxTgtNameEdit' OnChange = IdxTgtNameEditChange end end object TPage Left = 0 Top = 0 Caption = 'Progress' object PrgPercentGauge: TGauge Left = 113 Top = 155 Width = 401 Height = 31 Color = clSilver Enabled = False ForeColor = clGreen BackColor = clSilver ParentColor = False Progress = 0 end object PrgHelpLbl: TLabel Left = 84 Top = 255 Width = 456 Height = 26 Alignment = taCenter AutoSize = False Caption = 'Moving data to target database. Please wait.' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object PrgInfoLbl: TLabel Left = 5 Top = 65 Width = 616 Height = 26 Alignment = taCenter AutoSize = False Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end end object TPage Left = 0 Top = 0 Caption = 'Report' object RptReportLbl: TLabel Left = 20 Top = 15 Width = 331 Height = 20 AutoSize = False Caption = 'Report of upsizing activities:' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object RptWriteBtn: TButton Left = 170 Top = 310 Width = 286 Height = 31 Caption = '&Write a copy of this report to file' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = RptWriteBtnClick end object RptReportGrid: TDBGrid Left = 20 Top = 35 Width = 586 Height = 261 DataSource = ReportDataSource Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit] ParentFont = False ReadOnly = True TabOrder = 1 TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS San Serif' TitleFont.Style = [] end end end object BackBtn: TBitBtn Left = 280 Top = 365 Width = 76 Height = 31 Caption = '< &Back' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = BackBtnClick end object NextBtn: TBitBtn Left = 360 Top = 365 Width = 76 Height = 31 Caption = '&Next >' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = NextBtnClick end object UpsizeBtn: TButton Left = 540 Top = 365 Width = 76 Height = 31 Caption = '&Upsize' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 5 OnClick = UpsizeBtnClick end object HelpBtn: TButton Left = 190 Top = 365 Width = 76 Height = 31 Caption = '&Help' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = HelpBtnClick end object ExitBtn: TButton Left = 450 Top = 365 Width = 76 Height = 31 Caption = '&Exit' Font.Color = clBlack Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = ExitBtnClick end object ReportTable: TTable Left = 8 Top = 292 end object ReportDataSource: TDataSource DataSet = ReportTable Left = 40 Top = 292 end object SaveReportDlg: TSaveDialog DefaultExt = 'DB' FileEditStyle = fsEdit Filter = 'Paradox Tables|*.DB|dBASE Tables|*.DBF|Text files|*.txt' Options = [ofOverwritePrompt] Left = 72 Top = 292 end end