inherited frmODMeds: TfrmODMeds Left = 440 Top = 204 Width = 584 Height = 515 HorzScrollBar.Range = 558 VertScrollBar.Range = 399 Caption = 'Medication Order' Constraints.MinHeight = 325 OnKeyDown = FormKeyDown OnShow = FormShow DesignSize = ( 576 481) PixelsPerInch = 96 TextHeight = 13 object pnlMeds: TPanel [0] Left = 6 Top = 34 Width = 580 Height = 413 Anchors = [akLeft, akTop, akRight, akBottom] BevelOuter = bvNone Caption = 'pnlMeds' TabOrder = 1 object sptSelect: TSplitter Left = 0 Top = 133 Width = 580 Height = 4 Cursor = crVSplit Align = alTop end object lstQuick: TCaptionListView Left = 0 Top = 0 Width = 580 Height = 133 Align = alTop BevelInner = bvLowered BevelOuter = bvSpace Columns = < item Width = 420 end> ColumnClick = False HideSelection = False HotTrack = True HoverTime = 2147483647 OwnerData = True ParentShowHint = False ShowColumnHeaders = False ShowHint = True TabOrder = 0 ViewStyle = vsReport OnChange = lstChange OnClick = ListViewClick OnData = lstQuickData OnDataHint = lstQuickDataHint OnEditing = ListViewEditing OnEnter = ListViewEnter OnKeyUp = ListViewKeyUp OnResize = ListViewResize Caption = 'Quick Orders' end object lstAll: TCaptionListView Left = 0 Top = 137 Width = 580 Height = 276 Align = alClient BevelInner = bvLowered BevelOuter = bvNone Columns = < item Width = 420 end> ColumnClick = False HideSelection = False HotTrack = True HoverTime = 2147483647 OwnerData = True ParentShowHint = False ShowColumnHeaders = False ShowHint = True TabOrder = 1 ViewStyle = vsReport OnChange = lstChange OnClick = ListViewClick OnData = lstAllData OnDataHint = lstAllDataHint OnEditing = ListViewEditing OnEnter = ListViewEnter OnKeyUp = ListViewKeyUp OnResize = ListViewResize Caption = 'All Medication orders' end end inherited memOrder: TCaptionMemo Top = 448 Width = 502 Anchors = [akLeft, akRight, akBottom] TabOrder = 4 end object txtMed: TEdit [2] Left = 6 Top = 6 Width = 580 Height = 21 Anchors = [akLeft, akTop, akRight] AutoSelect = False TabOrder = 0 Text = '(Type a medication name or select from the orders below)' OnChange = txtMedChange OnExit = txtMedExit OnKeyDown = txtMedKeyDown OnKeyUp = txtMedKeyUp end object btnSelect: TButton [3] Left = 515 Top = 448 Width = 72 Height = 21 Anchors = [akRight, akBottom] Caption = 'OK' Default = True Enabled = False TabOrder = 5 OnClick = btnSelectClick end object pnlFields: TPanel [4] Left = 6 Top = 34 Width = 580 Height = 413 Anchors = [akLeft, akTop, akRight, akBottom] BevelOuter = bvNone Enabled = False TabOrder = 2 Visible = False OnResize = pnlFieldsResize object pnlTop: TPanel Left = 0 Top = 0 Width = 580 Height = 184 Align = alClient Constraints.MinHeight = 80 TabOrder = 3 DesignSize = ( 580 184) object lblRoute: TLabel Left = 280 Top = 23 Width = 29 Height = 13 Anchors = [akTop, akRight] Caption = 'Route' Visible = False end object lblSchedule: TLabel Left = 394 Top = 22 Width = 45 Height = 13 Anchors = [akTop, akRight] Caption = 'Schedule' Visible = False WordWrap = True end object txtNSS: TLabel Left = 442 Top = 22 Width = 71 Height = 13 Anchors = [akTop, akRight] Caption = '(Day-Of-Week)' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Visible = False WordWrap = True OnClick = txtNSSClick end object grdDoses: TCaptionStringGrid Left = 0 Top = 36 Width = 580 Height = 143 Anchors = [akLeft, akTop, akRight, akBottom] ColCount = 6 DefaultColWidth = 76 DefaultRowHeight = 21 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goTabs] ScrollBars = ssVertical TabOrder = 8 OnDrawCell = grdDosesDrawCell OnEnter = grdDosesEnter OnExit = grdDosesExit OnKeyDown = grdDosesKeyDown OnKeyPress = grdDosesKeyPress OnMouseDown = grdDosesMouseDown OnMouseUp = grdDosesMouseUp Caption = 'Complex Dosage' JustToTab = True ColWidths = ( 76 76 76 76 76 76) end object lblGuideline: TStaticText Left = 0 Top = 1 Width = 181 Height = 17 Caption = 'Display Restrictions/Guidelines' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold, fsUnderline] ParentColor = False ParentFont = False ShowAccelChar = False TabOrder = 0 TabStop = True Visible = False OnClick = lblGuidelineClick end object tabDose: TTabControl Left = 1 Top = 19 Width = 175 Height = 17 TabOrder = 3 Tabs.Strings = ( 'Dosage' 'Complex') TabIndex = 0 TabStop = False TabWidth = 86 OnChange = tabDoseChange end object cboDosage: TORComboBox Left = 1 Top = 36 Width = 279 Height = 143 Anchors = [akLeft, akTop, akRight, akBottom] Style = orcsSimple AutoSelect = True Caption = 'Dosage' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = False LongList = False LookupPiece = 0 MaxLength = 0 Pieces = '5,3,6' Sorted = False SynonymChars = '<>' TabPositions = '27,32' TabOrder = 4 OnChange = cboDosageChange OnClick = cboDosageClick OnExit = cboDosageExit OnKeyUp = cboDosageKeyUp CharsNeedMatch = 1 UniqueAutoComplete = True end object cboRoute: TORComboBox Left = 280 Top = 36 Width = 113 Height = 143 Anchors = [akTop, akRight, akBottom] Style = orcsSimple AutoSelect = True Caption = 'Route' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = False LongList = False LookupPiece = 0 MaxLength = 0 ParentShowHint = False Pieces = '2' ShowHint = True Sorted = False SynonymChars = '<>' TabOrder = 5 OnChange = cboRouteChange OnClick = ControlChange OnExit = cboRouteExit CharsNeedMatch = 1 UniqueAutoComplete = True end object cboSchedule: TORComboBox Left = 394 Top = 36 Width = 178 Height = 143 Anchors = [akTop, akRight, akBottom] Style = orcsSimple AutoSelect = False Caption = 'Schedule' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = False LongList = False LookupPiece = 0 MaxLength = 0 Pieces = '1' Sorted = True SynonymChars = '<>' TabOrder = 6 OnChange = cboScheduleChange OnClick = cboScheduleClick OnEnter = cboScheduleEnter OnExit = cboScheduleExit CharsNeedMatch = 1 UniqueAutoComplete = True end object chkPRN: TCheckBox Left = 530 Top = 37 Width = 42 Height = 18 Anchors = [akTop, akRight] Caption = 'PRN' Color = clBtnFace ParentColor = False TabOrder = 7 OnClick = chkPRNClick end object btnXInsert: TButton Left = 403 Top = 3 Width = 79 Height = 17 Caption = 'Insert Row' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = btnXInsertClick end object btnXRemove: TButton Left = 488 Top = 3 Width = 79 Height = 17 Caption = 'Remove Row' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = btnXRemoveClick end end object cboXDosage: TORComboBox Left = 49 Top = 122 Width = 72 Height = 21 Style = orcsDropDown AutoSelect = False Caption = 'Dosage' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = False LongList = False LookupPiece = 0 MaxLength = 0 Pieces = '5' Sorted = False SynonymChars = '<>' TabOrder = 0 Visible = False OnChange = cboXDosageChange OnClick = cboXDosageClick OnEnter = cboXDosageEnter OnExit = cboXDosageExit OnKeyDown = memMessageKeyDown OnKeyUp = cboXDosageKeyUp CharsNeedMatch = 1 UniqueAutoComplete = True end object cboXRoute: TORComboBox Left = 122 Top = 122 Width = 72 Height = 21 Style = orcsDropDown AutoSelect = False Caption = 'Route' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = False LongList = False LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = False SynonymChars = '<>' TabOrder = 1 Visible = False OnChange = cboXRouteChange OnClick = cboXRouteClick OnEnter = cboXRouteEnter OnExit = cboXRouteExit OnKeyDown = memMessageKeyDown CharsNeedMatch = 1 UniqueAutoComplete = True end object pnlXDuration: TPanel Left = 300 Top = 122 Width = 72 Height = 21 BevelOuter = bvNone TabOrder = 4 Visible = False OnEnter = pnlXDurationEnter OnExit = pnlXDurationExit DesignSize = ( 72 21) object pnlXDurationButton: TKeyClickPanel Left = 39 Top = 1 Width = 33 Height = 19 Anchors = [akLeft, akTop, akRight, akBottom] Caption = 'Duration' TabOrder = 2 TabStop = True OnClick = btnXDurationClick object btnXDuration: TSpeedButton Left = 0 Top = 0 Width = 33 Height = 19 Caption = 'days' Flat = True Glyph.Data = { AE000000424DAE0000000000000076000000280000000E000000070000000100 0400000000003800000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 330033333333333333003330333333733300330003333F87330030000033FFFF F30033333333333333003333333333333300} Layout = blGlyphRight NumGlyphs = 2 Spacing = 0 Transparent = False OnClick = btnXDurationClick end end object txtXDuration: TCaptionEdit Left = 0 Top = 0 Width = 25 Height = 21 Anchors = [akLeft, akTop, akBottom] TabOrder = 0 Text = '0' OnChange = txtXDurationChange OnKeyDown = memMessageKeyDown Caption = 'Duration' end object spnXDuration: TUpDown Left = 25 Top = 0 Width = 15 Height = 21 Anchors = [akLeft, akTop, akBottom] Associate = txtXDuration Max = 999 TabOrder = 1 end end object pnlXSequence: TKeyClickPanel Left = 396 Top = 122 Width = 37 Height = 21 Caption = 'Then/And box' TabOrder = 5 TabStop = True Visible = False OnClick = btnXSequenceClick OnEnter = pnlXSequenceEnter OnExit = pnlXSequenceExit object btnXSequence: TSpeedButton Left = 1 Top = 1 Width = 38 Height = 19 Hint = 'A duration must be defined if using "Then" as a sequence.' Caption = 'then' Glyph.Data = { AE000000424DAE0000000000000076000000280000000E000000070000000100 0400000000003800000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 330033333333333333003330333333733300330003333F87330030000033FFFF F30033333333333333003333333333333300} Layout = blGlyphRight NumGlyphs = 2 ParentShowHint = False ShowHint = True Spacing = 1 OnClick = btnXSequenceClick end object SpeedButton1: TSpeedButton Left = 16 Top = 16 Width = 23 Height = 22 end end object pnlXSchedule: TPanel Left = 195 Top = 122 Width = 106 Height = 21 BevelOuter = bvNone TabOrder = 2 Visible = False OnEnter = pnlXScheduleEnter OnExit = pnlXScheduleExit DesignSize = ( 106 21) object cboXSchedule: TORComboBox Left = 0 Top = 0 Width = 63 Height = 21 Anchors = [akLeft, akTop, akRight] Style = orcsDropDown AutoSelect = False Caption = 'Schedule' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = False LongList = False LookupPiece = 0 MaxLength = 0 Pieces = '1' Sorted = False SynonymChars = '<>' TabOrder = 0 TabStop = True OnChange = cboXScheduleChange OnClick = cboXScheduleClick OnEnter = cboXScheduleEnter OnExit = cboXScheduleExit OnKeyDown = memMessageKeyDown CharsNeedMatch = 1 UniqueAutoComplete = True end object chkXPRN: TCheckBox Left = 63 Top = 4 Width = 42 Height = 11 Anchors = [akTop, akRight] Caption = 'PRN' TabOrder = 1 OnClick = chkXPRNClick OnKeyDown = memMessageKeyDown end end object pnlBottom: TPanel Left = 0 Top = 184 Width = 580 Height = 229 Align = alBottom TabOrder = 6 DesignSize = ( 580 229) object lblComment: TLabel Left = 4 Top = 5 Width = 52 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'Comments:' end object lblDays: TLabel Left = 4 Top = 65 Width = 59 Height = 13 Caption = 'Days Supply' end object lblQuantity: TLabel Left = 84 Top = 65 Width = 39 Height = 13 Caption = 'Quantity' ParentShowHint = False ShowHint = True end object lblRefills: TLabel Left = 164 Top = 65 Width = 28 Height = 13 Caption = 'Refills' end object lblPriority: TLabel Left = 500 Top = 61 Width = 31 Height = 13 Anchors = [akTop, akRight] Caption = 'Priority' end object Image1: TImage Left = 5 Top = 177 Width = 31 Height = 31 Anchors = [akLeft, akBottom] Visible = False end object chkDoseNow: TCheckBox Left = 3 Top = 104 Width = 247 Height = 21 Caption = 'Give additional dose now' TabOrder = 9 OnClick = chkDoseNowClick end object memComment: TCaptionMemo Left = 57 Top = 2 Width = 513 Height = 43 Anchors = [akLeft, akTop, akRight] ScrollBars = ssVertical TabOrder = 0 OnChange = ControlChange OnClick = memCommentClick Caption = 'Comments' end object lblQtyMsg: TStaticText Left = 4 Top = 47 Width = 206 Height = 17 Caption = '>> Quantity Dispensed: Multiples of 100 <<' TabOrder = 12 end object txtSupply: TCaptionEdit Left = 2 Top = 78 Width = 60 Height = 21 AutoSize = False TabOrder = 1 Text = '0' OnChange = txtSupplyChange OnClick = txtSupplyClick Caption = 'Days Supply' end object spnSupply: TUpDown Left = 62 Top = 78 Width = 15 Height = 21 Associate = txtSupply TabOrder = 2 end object txtQuantity: TCaptionEdit Left = 83 Top = 78 Width = 60 Height = 21 AutoSize = False TabOrder = 3 Text = '0' OnChange = txtQuantityChange OnClick = txtQuantityClick Caption = 'Quantity' end object spnQuantity: TUpDown Left = 143 Top = 78 Width = 16 Height = 21 Min = -32766 Max = 32766 TabOrder = 4 OnChangingEx = spnQuantityChangingEx end object txtRefills: TCaptionEdit Left = 164 Top = 78 Width = 30 Height = 21 AutoSize = False TabOrder = 5 Text = '0' OnChange = ControlChange OnClick = txtRefillsClick Caption = 'Refills' end object spnRefills: TUpDown Left = 194 Top = 78 Width = 15 Height = 21 Associate = txtRefills Max = 11 TabOrder = 6 end object grpPickup: TGroupBox Left = 283 Top = 66 Width = 172 Height = 36 Anchors = [akTop, akRight] Caption = 'Pick Up' TabOrder = 7 object radPickWindow: TRadioButton Left = 105 Top = 14 Width = 58 Height = 17 Caption = '&Window' TabOrder = 2 OnClick = ControlChange end object radPickMail: TRadioButton Left = 58 Top = 14 Width = 38 Height = 17 Caption = '&Mail' TabOrder = 1 OnClick = ControlChange end object radPickClinic: TRadioButton Left = 7 Top = 14 Width = 44 Height = 17 Caption = '&Clinic' TabOrder = 0 OnClick = ControlChange end end object cboPriority: TORComboBox Left = 499 Top = 76 Width = 72 Height = 21 Anchors = [akTop, akRight] Style = orcsDropDown AutoSelect = True Caption = 'Priority' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = False LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = False SynonymChars = '<>' TabOrder = 10 OnChange = ControlChange CharsNeedMatch = 1 end object chkSC: TCheckBox Left = 3 Top = 106 Width = 175 Height = 17 Caption = 'for Service Connected condition' ParentShowHint = False ShowHint = True TabOrder = 8 OnClick = chkSCClick OnEnter = chkSCEnter end object lblAdminTime: TStaticText Left = 262 Top = 120 Width = 4 Height = 4 TabOrder = 16 end object stcPI: TStaticText Left = 2 Top = 123 Width = 89 Height = 17 Caption = 'Patient Instruction' TabOrder = 17 Visible = False end object chkPtInstruct: TCheckBox Left = 4 Top = 137 Width = 14 Height = 21 Color = clBtnFace ParentColor = False TabOrder = 18 Visible = False OnClick = chkPtInstructClick end object memPI: TMemo Left = 23 Top = 139 Width = 547 Height = 35 TabStop = False Anchors = [akLeft, akTop, akRight] ReadOnly = True ScrollBars = ssVertical TabOrder = 19 Visible = False OnClick = memPIClick OnKeyDown = memPIKeyDown end object memDrugMsg: TMemo Left = 37 Top = 176 Width = 533 Height = 51 Anchors = [akLeft, akRight, akBottom] Color = clCream ReadOnly = True ScrollBars = ssVertical TabOrder = 20 Visible = False end end end inherited cmdAccept: TButton Left = 514 Top = 448 Anchors = [akRight, akBottom] TabOrder = 6 TabStop = False Visible = False end inherited cmdQuit: TButton Left = 514 Top = 473 Width = 51 Anchors = [akRight, akBottom] TabOrder = 7 end inherited pnlMessage: TPanel Left = 36 Top = 156 OnEnter = pnlMessageEnter inherited memMessage: TRichEdit OnKeyDown = memMessageKeyDown end end inherited DKLanguageController1: TDKLanguageController LangData = { 090066726D4F444D656473010100000005000000070043617074696F6E014E00 000008006D656D4F72646572010100000002000000070043617074696F6E0009 00636D64416363657074010100000003000000070043617074696F6E00070063 6D6451756974010100000004000000070043617074696F6E000A00706E6C4D65 737361676500000A00696D674D65737361676500000A006D656D4D6573736167 6500000700706E6C4D656473010100000006000000070043617074696F6E0009 0073707453656C656374000008006C7374517569636B01010000000700000007 0043617074696F6E0006006C7374416C6C010100000008000000070043617074 696F6E0006007478744D65640101000000090000000400546578740009006274 6E53656C65637401010000000A000000070043617074696F6E000900706E6C46 69656C647300000600706E6C546F70000008006C626C526F7574650101000000 0B000000070043617074696F6E000B006C626C5363686564756C650101000000 0C000000070043617074696F6E0006007478744E535301010000000D00000007 0043617074696F6E000800677264446F73657301010000000E00000007004361 7074696F6E000C006C626C47756964656C696E6501010000000F000000070043 617074696F6E000700746162446F736501010000001000000004005461627300 090063626F446F73616765010100000011000000070043617074696F6E000800 63626F526F757465010100000012000000070043617074696F6E000B0063626F 5363686564756C65010100000013000000070043617074696F6E00060063686B 50524E010100000014000000070043617074696F6E000A0062746E58496E7365 7274010100000015000000070043617074696F6E000A0062746E5852656D6F76 65010100000016000000070043617074696F6E000A0063626F58446F73616765 010100000017000000070043617074696F6E00090063626F58526F7574650101 00000018000000070043617074696F6E000C00706E6C584475726174696F6E00 001200706E6C584475726174696F6E427574746F6E0101000000190000000700 43617074696F6E000C0062746E584475726174696F6E01010000001A00000007 0043617074696F6E000C00747874584475726174696F6E01010000001B000000 070043617074696F6E000C0073706E584475726174696F6E00000C00706E6C58 53657175656E636501010000001C000000070043617074696F6E000C0062746E 5853657175656E636501020000001E000000070043617074696F6E1D00000004 0048696E74000C005370656564427574746F6E3100000C00706E6C5853636865 64756C6500000C0063626F585363686564756C6501010000001F000000070043 617074696F6E00070063686B5850524E01010000002000000007004361707469 6F6E000900706E6C426F74746F6D00000A006C626C436F6D6D656E7401010000 0021000000070043617074696F6E0007006C626C446179730101000000220000 00070043617074696F6E000B006C626C5175616E746974790101000000230000 00070043617074696F6E000A006C626C526566696C6C73010100000024000000 070043617074696F6E000B006C626C5072696F72697479010100000025000000 070043617074696F6E000600496D6167653100000A0063686B446F73654E6F77 010100000026000000070043617074696F6E000A006D656D436F6D6D656E7401 0100000027000000070043617074696F6E0009006C626C5174794D7367010100 000028000000070043617074696F6E000900747874537570706C790101000000 29000000070043617074696F6E00090073706E537570706C7900000B00747874 5175616E7469747901010000002A000000070043617074696F6E000B0073706E 5175616E7469747900000A00747874526566696C6C7301010000002B00000007 0043617074696F6E000A0073706E526566696C6C73000009006772705069636B 757001010000002C000000070043617074696F6E000D007261645069636B5769 6E646F7701010000002D000000070043617074696F6E000B007261645069636B 4D61696C01010000002E000000070043617074696F6E000D007261645069636B 436C696E696301010000002F000000070043617074696F6E000B0063626F5072 696F72697479010100000030000000070043617074696F6E00050063686B5343 010100000031000000070043617074696F6E000C006C626C41646D696E54696D 65000005007374635049010100000032000000070043617074696F6E000D0063 686B5074496E737472756374000005006D656D504900000A006D656D44727567 4D736700000800646C67537461727400000F0074696D436865636B4368616E67 657300000B00706F704475726174696F6E00000800706F70426C616E6B010100 000033000000070043617074696F6E0007006D6F6E7468733101010000003400 0000070043617074696F6E0006007765656B7331010100000035000000070043 617074696F6E000700706F704461797301010000003600000007004361707469 6F6E000600686F75727331010100000037000000070043617074696F6E000800 6D696E7574657331010100000038000000070043617074696F6E000C00706F70 5853657175656E636500000400616E6431010100000039000000070043617074 696F6E0005007468656E3101010000003A000000070043617074696F6E00} end object dlgStart: TORDateTimeDlg FMDateTime = 3001101.000000000000000000 DateOnly = False RequireTime = True Left = 444 Top = 336 end object timCheckChanges: TTimer Enabled = False Interval = 500 OnTimer = timCheckChangesTimer Left = 477 Top = 336 end object popDuration: TPopupMenu AutoHotkeys = maManual Left = 380 Top = 145 object popBlank: TMenuItem Caption = '(no selection)' OnClick = popDurationClick end object months1: TMenuItem Tag = 5 Caption = 'months' OnClick = popDurationClick end object weeks1: TMenuItem Tag = 4 Caption = 'weeks' OnClick = popDurationClick end object popDays: TMenuItem Tag = 3 Caption = 'days' OnClick = popDurationClick end object hours1: TMenuItem Tag = 2 Caption = 'hours' OnClick = popDurationClick end object minutes1: TMenuItem Tag = 1 Caption = 'minutes' OnClick = popDurationClick end end object popXSequence: TPopupMenu AutoHotkeys = maManual Left = 448 Top = 145 object and1: TMenuItem Tag = 1 Caption = 'and' OnClick = popXSequenceClick end object then1: TMenuItem Tag = 2 Caption = 'then' OnClick = popXSequenceClick end end end