object MDIChild: TMDIChild
  Left = 646
  Top = 110
  Caption = 'MySQL-Host'
  ClientHeight = 420
  ClientWidth = 677
  Color = clBtnFace
  Constraints.MinHeight = 200
  Constraints.MinWidth = 300
  ParentFont = True
  FormStyle = fsMDIChild
  OldCreateOrder = True
  Position = poDefault
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnDeactivate = FormDeactivate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter2: TSplitter
    Left = 0
    Top = 252
    Width = 677
    Height = 4
    Cursor = crSizeNS
    Align = alBottom
    AutoSnap = False
    ResizeStyle = rsUpdate
    OnMoved = Splitter2Moved
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 677
    Height = 252
    Align = alClient
    AutoSize = True
    BevelOuter = bvNone
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 169
      Top = 0
      Width = 4
      Height = 252
      Cursor = crSizeWE
      ResizeStyle = rsUpdate
    end
    object DBtree: TTreeView
      Left = 0
      Top = 0
      Width = 169
      Height = 252
      Align = alLeft
      Constraints.MinWidth = 40
      DragMode = dmAutomatic
      HotTrack = True
      Images = MainForm.ImageList1
      Indent = 19
      PopupMenu = popupTreeView
      ReadOnly = True
      RightClickSelect = True
      RowSelect = True
      ShowRoot = False
      TabOrder = 0
      OnChange = DBtreeChange
      OnChanging = DBtreeChanging
      OnExpanding = DBtreeExpanding
    end
    object TableShow: TPanel
      Left = 173
      Top = 0
      Width = 504
      Height = 252
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object PageControlMain: TPageControl
        Left = 0
        Top = 0
        Width = 504
        Height = 252
        ActivePage = tabHost
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        HotTrack = True
        Images = MainForm.ImageList1
        MultiLine = True
        ParentFont = False
        TabHeight = 22
        TabOrder = 0
        OnChange = pcChange
        object tabHost: TTabSheet
          Caption = 'Host'
          ImageIndex = 41
          object PageControlHost: TPageControl
            Left = 0
            Top = 17
            Width = 496
            Height = 203
            ActivePage = tabVariables
            Align = alClient
            HotTrack = True
            TabOrder = 0
            OnChange = PageControlHostChange
            object tabVariables: TTabSheet
              Caption = 'Variables'
              object ListVariables: TVirtualStringTree
                Left = 0
                Top = 0
                Width = 488
                Height = 175
                Align = alClient
                DragOperations = []
                Header.AutoSizeIndex = 1
                Header.Font.Charset = DEFAULT_CHARSET
                Header.Font.Color = clWindowText
                Header.Font.Height = -11
                Header.Font.Name = 'Tahoma'
                Header.Font.Style = []
                Header.Height = 20
                Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible]
                Header.SortColumn = 0
                Images = MainForm.ImageList1
                IncrementalSearch = isInitializedOnly
                PopupMenu = popupHost
                TabOrder = 0
                TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes]
                TreeOptions.MiscOptions = [toToggleOnDblClick]
                TreeOptions.PaintOptions = [toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages]
                TreeOptions.SelectionOptions = [toFullRowSelect, toRightClickSelect]
                OnBeforePaint = vstBeforePaint
                OnCompareNodes = vstCompareNodes
                OnFreeNode = vstFreeNode
                OnGetText = vstGetText
                OnGetImageIndex = vstGetImageIndex
                OnGetNodeDataSize = vstGetNodeDataSize
                OnHeaderClick = vstHeaderClick
                OnInitNode = vstInitNode
                Columns = <
                  item
                    Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                    Position = 0
                    Width = 160
                    WideText = 'Variable'
                  end
                  item
                    Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                    Position = 1
                    Width = 324
                    WideText = 'Value'
                  end>
              end
            end
            object tabProcessList: TTabSheet
              Caption = 'Process-List'
              ImageIndex = 1
              object ListProcesses: TVirtualStringTree
                Left = 0
                Top = 0
                Width = 488
                Height = 175
                Align = alClient
                Header.AutoSizeIndex = 7
                Header.Font.Charset = DEFAULT_CHARSET
                Header.Font.Color = clWindowText
                Header.Font.Height = -11
                Header.Font.Name = 'Tahoma'
                Header.Font.Style = []
                Header.Height = 20
                Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible]
                Header.SortColumn = 0
                Header.SortDirection = sdDescending
                Images = MainForm.ImageList1
                IncrementalSearch = isInitializedOnly
                PopupMenu = popupHost
                TabOrder = 0
                TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes]
                TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
                TreeOptions.PaintOptions = [toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages]
                TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect, toRightClickSelect]
                OnBeforePaint = vstBeforePaint
                OnCompareNodes = vstCompareNodes
                OnFreeNode = vstFreeNode
                OnGetText = vstGetText
                OnGetImageIndex = vstGetImageIndex
                OnGetNodeDataSize = vstGetNodeDataSize
                OnHeaderClick = vstHeaderClick
                OnInitNode = vstInitNode
                Columns = <
                  item
                    Alignment = taRightJustify
                    Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                    Position = 0
                    Width = 70
                    WideText = 'id'
                  end
                  item
                    Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                    Position = 1
                    Width = 80
                    WideText = 'User'
                  end
                  item
                    Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                    Position = 2
                    Width = 80
                    WideText = 'Host'
                  end
                  item
                    Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                    Position = 3
                    Width = 80
                    WideText = 'DB'
                  end
                  item
                    Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                    Position = 4
                    Width = 80
                    WideText = 'Command'
                  end
                  item
                    Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                    Position = 5
                    WideText = 'Time'
                  end
                  item
                    Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                    Position = 6
                    WideText = 'State'
                  end
                  item
                    Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                    Position = 7
                    Width = 10
                    WideText = 'Info'
                  end>
              end
            end
            object tabCommandStats: TTabSheet
              Caption = 'Command-Statistics'
              ImageIndex = 2
              object ListCommandStats: TVirtualStringTree
                Left = 0
                Top = 0
                Width = 488
                Height = 175
                Align = alClient
                Header.AutoSizeIndex = 4
                Header.Font.Charset = DEFAULT_CHARSET
                Header.Font.Color = clWindowText
                Header.Font.Height = -11
                Header.Font.Name = 'Tahoma'
                Header.Font.Style = []
                Header.Height = 20
                Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible]
                Header.SortColumn = 1
                Header.SortDirection = sdDescending
                Images = MainForm.ImageList1
                IncrementalSearch = isInitializedOnly
                PopupMenu = popupHost
                TabOrder = 0
                TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes]
                TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
                TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages]
                TreeOptions.SelectionOptions = [toFullRowSelect]
                OnBeforePaint = vstBeforePaint
                OnCompareNodes = vstCompareNodes
                OnFreeNode = vstFreeNode
                OnGetText = vstGetText
                OnGetImageIndex = vstGetImageIndex
                OnGetNodeDataSize = vstGetNodeDataSize
                OnHeaderClick = vstHeaderClick
                OnInitNode = vstInitNode
                Columns = <
                  item
                    Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                    Position = 0
                    Width = 120
                    WideText = 'Command-type'
                  end
                  item
                    Alignment = taRightJustify
                    Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                    Position = 1
                    Width = 100
                    WideText = 'Total count'
                  end
                  item
                    Alignment = taRightJustify
                    Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                    Position = 2
                    Width = 100
                    WideText = 'Average per hour'
                  end
                  item
                    Alignment = taRightJustify
                    Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                    Position = 3
                    Width = 100
                    WideText = 'Average per second'
                  end
                  item
                    Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                    Position = 4
                    Width = 64
                    WideText = 'Percentage'
                  end>
              end
            end
          end
          object Panel4: TPanel
            Left = 0
            Top = 0
            Width = 496
            Height = 17
            Align = alTop
            Alignment = taLeftJustify
            BevelOuter = bvNone
            BorderWidth = 1
            Caption = 'Host'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 1
          end
        end
        object tabDatabase: TTabSheet
          Caption = 'Database'
          ImageIndex = 38
          DesignSize = (
            496
            220)
          object pnlDatabaseTop: TPanel
            Left = 0
            Top = 0
            Width = 496
            Height = 17
            Align = alTop
            Alignment = taLeftJustify
            BevelOuter = bvNone
            BorderWidth = 1
            Caption = 'Database'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 0
          end
          object ListTables: TVirtualStringTree
            Left = 28
            Top = 17
            Width = 468
            Height = 203
            Align = alClient
            EditDelay = 500
            Header.AutoSizeIndex = -1
            Header.Font.Charset = DEFAULT_CHARSET
            Header.Font.Color = clWindowText
            Header.Font.Height = -11
            Header.Font.Name = 'Tahoma'
            Header.Font.Style = []
            Header.Height = 20
            Header.Options = [hoColumnResize, hoDblClickResize, hoHotTrack, hoShowSortGlyphs, hoVisible]
            Header.PopupMenu = popupDbGridHeader
            Header.SortColumn = 0
            Images = MainForm.ImageList1
            IncrementalSearch = isInitializedOnly
            PopupMenu = popupDbGrid
            TabOrder = 1
            TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes]
            TreeOptions.MiscOptions = [toEditable, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
            TreeOptions.PaintOptions = [toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages]
            TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect, toRightClickSelect]
            OnBeforePaint = vstBeforePaint
            OnChange = ListTablesChange
            OnCompareNodes = vstCompareNodes
            OnDblClick = ListTablesDblClick
            OnFreeNode = vstFreeNode
            OnGetText = vstGetText
            OnGetImageIndex = vstGetImageIndex
            OnGetNodeDataSize = vstGetNodeDataSize
            OnHeaderClick = vstHeaderClick
            OnInitNode = vstInitNode
            OnNewText = ListTablesNewText
            Columns = <
              item
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 0
                Width = 120
                WideText = 'Table'
              end
              item
                Alignment = taRightJustify
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 1
                Width = 70
                WideText = 'Records'
              end
              item
                Alignment = taRightJustify
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 2
                Width = 70
                WideText = 'Size'
              end
              item
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 3
                Width = 120
                WideText = 'Created'
              end
              item
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 4
                Width = 120
                WideText = 'Updated'
              end
              item
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 5
                Width = 70
                WideText = 'Type'
              end
              item
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 6
                Width = 100
                WideText = 'Comment'
              end
              item
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 7
                WideText = 'Version'
              end
              item
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 8
                Width = 70
                WideText = 'Row format'
              end
              item
                Alignment = taRightJustify
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 9
                Width = 70
                WideText = 'Avg row length'
              end
              item
                Alignment = taRightJustify
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 10
                Width = 70
                WideText = 'Max data length'
              end
              item
                Alignment = taRightJustify
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 11
                Width = 70
                WideText = 'Index length'
              end
              item
                Alignment = taRightJustify
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 12
                Width = 70
                WideText = 'Data free'
              end
              item
                Alignment = taRightJustify
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 13
                Width = 90
                WideText = 'Auto increment'
              end
              item
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 14
                Width = 120
                WideText = 'Check time'
              end
              item
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 15
                Width = 70
                WideText = 'Collation'
              end
              item
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 16
                Width = 70
                WideText = 'Checksum'
              end
              item
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 17
                Width = 70
                WideText = 'Create options'
              end>
          end
          object pnlDatabaseToolbar: TPanel
            Left = 0
            Top = 17
            Width = 28
            Height = 203
            Align = alLeft
            BevelOuter = bvNone
            TabOrder = 2
            object tlbDataLeft1: TToolBar
              Left = 2
              Top = 1
              Width = 25
              Height = 123
              Align = alNone
              Caption = 'tlbDataLeft1'
              Color = clBtnFace
              EdgeInner = esNone
              EdgeOuter = esNone
              Images = MainForm.ImageList1
              ParentColor = False
              ParentShowHint = False
              ShowHint = True
              TabOrder = 1
              Transparent = True
              object btnDbViewData: TToolButton
                Left = 0
                Top = 0
                Hint = 'View Data'
                Caption = 'View Data'
                Enabled = False
                ImageIndex = 8
                Wrap = True
                OnClick = btnDbViewDataClick
              end
              object btnDbProperties: TToolButton
                Left = 0
                Top = 22
                Hint = 'Show Table-Properties'
                Caption = 'Show Table-Properties'
                Enabled = False
                ImageIndex = 9
                Wrap = True
                OnClick = btnDbPropertiesClick
              end
              object btnDbEmptyTable: TToolButton
                Left = 0
                Top = 44
                Hint = 'Empty Table ...'
                Caption = 'btnDbEmptyTable'
                Enabled = False
                ImageIndex = 31
                Wrap = True
                OnClick = EmptyTable
              end
              object btnDbDropTable: TToolButton
                Left = 0
                Top = 66
                Action = MainForm.DropTable
                Wrap = True
              end
              object btnDbCopyTable: TToolButton
                Left = 0
                Top = 88
                Action = MainForm.CopyTable
              end
            end
            object tlbDataLeft2: TToolBar
              Left = 2
              Top = 126
              Width = 23
              Height = 29
              Align = alNone
              Caption = 'tlbDataLeft2'
              EdgeInner = esNone
              EdgeOuter = esNone
              Images = MainForm.ImageList1
              ParentShowHint = False
              ShowHint = True
              TabOrder = 0
              Transparent = True
              object btnDbInsertRecord: TToolButton
                Left = 0
                Top = 0
                Hint = 'Insert Record...|Insert new Record into Table...'
                Caption = 'Insert Record'
                Enabled = False
                ImageIndex = 32
                OnClick = InsertRecord
              end
            end
          end
        end
        object tabTable: TTabSheet
          Caption = 'Table'
          ImageIndex = 40
          DesignSize = (
            496
            220)
          object pnlTableTop: TPanel
            Left = 0
            Top = 0
            Width = 496
            Height = 17
            Align = alTop
            Alignment = taLeftJustify
            BevelOuter = bvNone
            BorderWidth = 1
            Caption = 'Table-Properties'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 0
          end
          object pnlTableToolbar: TPanel
            Left = 0
            Top = 17
            Width = 28
            Height = 203
            Align = alLeft
            BevelOuter = bvNone
            TabOrder = 1
            object tlbTableLeft1: TToolBar
              Left = 2
              Top = 1
              Width = 25
              Height = 123
              Align = alNone
              ButtonHeight = 23
              Caption = 'tlbTableLeft1'
              EdgeInner = esNone
              EdgeOuter = esNone
              Images = MainForm.ImageList1
              ParentShowHint = False
              ShowHint = True
              TabOrder = 0
              Transparent = True
              Wrapable = False
              object btnTableViewData: TToolButton
                Left = 0
                Top = 0
                Hint = 'View Data'
                Caption = 'btnTableViewData'
                ImageIndex = 8
                Wrap = True
                OnClick = btnTableViewDataClick
              end
              object btnTableEditField: TToolButton
                Left = 0
                Top = 23
                Hint = 'Edit Field...'
                Caption = 'btnTableEditField'
                ImageIndex = 9
                Wrap = True
                OnClick = UpdateField
              end
              object btnTableAddField: TToolButton
                Left = 0
                Top = 46
                Hint = 'Add Field...'
                Caption = 'btnTableAddField'
                ImageIndex = 34
                Wrap = True
                OnClick = MenuAddFieldClick
              end
              object btnTableDropField: TToolButton
                Left = 0
                Top = 69
                Hint = 'Drop Field ...'
                Caption = 'btnTableDropField'
                ImageIndex = 33
                Wrap = True
                OnClick = DropField
              end
              object btnTableManageIndexes: TToolButton
                Left = 0
                Top = 92
                Hint = 'Manages indexes'
                Caption = 'btnTableManageIndexes'
                ImageIndex = 76
                OnClick = ManageIndexes1Click
              end
            end
            object tlbTableLeft2: TToolBar
              Left = 2
              Top = 129
              Width = 23
              Align = alNone
              ButtonHeight = 23
              Caption = 'ToolBar2'
              EdgeInner = esNone
              EdgeOuter = esNone
              Images = MainForm.ImageList1
              ParentShowHint = False
              ShowHint = True
              TabOrder = 1
              Transparent = True
              Wrapable = False
              object btnTableInsertRecord: TToolButton
                Left = 0
                Top = 0
                Hint = 'Insert Record...|Insert new Record into Table...'
                Caption = 'btnTableInsertRecord'
                ImageIndex = 32
                Wrap = True
                OnClick = InsertRecord
              end
            end
          end
          object ListColumns: TVirtualStringTree
            Left = 28
            Top = 17
            Width = 468
            Height = 203
            Align = alClient
            EditDelay = 500
            Header.AutoSizeIndex = -1
            Header.Font.Charset = DEFAULT_CHARSET
            Header.Font.Color = clWindowText
            Header.Font.Height = -11
            Header.Font.Name = 'Tahoma'
            Header.Font.Style = []
            Header.Height = 20
            Header.Options = [hoColumnResize, hoDblClickResize, hoHotTrack, hoShowSortGlyphs, hoVisible]
            Images = MainForm.ImageList1
            IncrementalSearch = isInitializedOnly
            PopupMenu = popupTableGrid
            TabOrder = 2
            TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
            TreeOptions.PaintOptions = [toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages]
            TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect, toRightClickSelect]
            OnBeforePaint = vstBeforePaint
            OnChange = ListColumnsChange
            OnCompareNodes = vstCompareNodes
            OnDblClick = UpdateField
            OnFreeNode = vstFreeNode
            OnGetText = vstGetText
            OnGetImageIndex = vstGetImageIndex
            OnGetNodeDataSize = vstGetNodeDataSize
            OnHeaderClick = vstHeaderClick
            OnInitNode = vstInitNode
            OnKeyUp = controlsKeyUp
            OnNewText = ListColumnsNewText
            Columns = <
              item
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 0
                Width = 120
                WideText = 'Name'
              end
              item
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 1
                Width = 120
                WideText = 'Type'
              end
              item
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 2
                Width = 40
                WideText = 'Null'
              end
              item
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 3
                Width = 115
                WideText = 'Default'
              end
              item
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 4
                Width = 80
                WideText = 'Extra'
              end
              item
                Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                Position = 5
                Width = 120
                WideText = 'Comment'
              end>
          end
        end
        object tabData: TTabSheet
          Caption = 'Data'
          ImageIndex = 39
          object pnlDataTop: TPanel
            Left = 0
            Top = 0
            Width = 496
            Height = 31
            Align = alTop
            Alignment = taLeftJustify
            BevelOuter = bvNone
            BorderWidth = 1
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 0
            DesignSize = (
              496
              31)
            object btnColumnSelection: TSpeedButton
              Left = 187
              Top = 4
              Width = 70
              Height = 21
              AllowAllUp = True
              Anchors = [akTop, akRight]
              GroupIndex = 10
              Caption = 'Columns'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              Glyph.Data = {
                52000000424D52000000000000003E0000002800000009000000050000000100
                010000000000140000000000000000000000020000000200000000000000FFFF
                FF00F7806300E3805C00C18032008080300000004700}
              Layout = blGlyphRight
              ParentFont = False
              OnClick = btnDataClick
            end
            object lblDataTop: TLabel
              Left = 1
              Top = 1
              Width = 104
              Height = 29
              Align = alLeft
              Anchors = [akLeft, akTop, akRight, akBottom]
              AutoSize = False
              Caption = 'lblDataTop'
              Layout = tlCenter
              WordWrap = True
            end
            object btnDataSorting: TSpeedButton
              Left = 111
              Top = 4
              Width = 70
              Height = 21
              AllowAllUp = True
              Anchors = [akTop, akRight]
              GroupIndex = 10
              Caption = 'Sorting'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              Glyph.Data = {
                52000000424D52000000000000003E0000002800000009000000050000000100
                010000000000140000000000000000000000020000000200000000000000FFFF
                FF00F7806300E3805C00C18032008080300000004700}
              Layout = blGlyphRight
              ParentFont = False
              OnClick = btnDataClick
            end
            object EditDataSearch: TEdit
              Left = 317
              Top = 4
              Width = 121
              Height = 21
              Anchors = [akTop, akRight]
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
              TabOrder = 0
              OnEnter = EditDataSearchEnter
              OnExit = EditDataSearchExit
              OnKeyUp = controlsKeyUp
            end
            object ButtonDataSearch: TButton
              Left = 440
              Top = 4
              Width = 51
              Height = 21
              Anchors = [akTop, akRight]
              Caption = 'Search'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
              TabOrder = 1
              OnClick = ButtonDataSearchClick
            end
            object CheckBoxDataSearch: TCheckBox
              Left = 264
              Top = 6
              Width = 49
              Height = 17
              Anchors = [akTop, akRight]
              Caption = 'NOT'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
              TabOrder = 2
            end
          end
          object gridData: TSMDBGrid
            Left = 0
            Top = 31
            Width = 496
            Height = 189
            Align = alClient
            DataSource = DataSource1
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgMultiSelect]
            ParentFont = False
            PopupMenu = popupDataGrid
            TabOrder = 1
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            OnColEnter = DBGridColEnter
            OnColumnMoved = gridDataColumnMoved
            OnDblClick = DBGridDblClick
            OnKeyUp = controlsKeyUp
            OnMouseDown = gridMouseDown
            OnTitleClick = gridDataTitleClick
            ExOptions = [eoBooleanAsCheckBox, eoCheckBoxSelect, eoCellHint, eoENTERlikeTAB, eoKeepSelection]
            OnGetCellParams = DBGridGetCellParams
            RegistryKey = 'Software\MikeSoft'
            RegistrySection = 'SMDBGrid'
            WidthOfIndicator = 23
            ScrollBars = ssHorizontal
            ColCount = 2
            RowCount = 2
            Col = 1
            Row = 1
          end
        end
        object tabQuery: TTabSheet
          Caption = 'Query'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ImageIndex = 57
          ParentFont = False
          object spltQuery: TSplitter
            Left = 0
            Top = 125
            Width = 496
            Height = 4
            Cursor = crSizeNS
            Align = alTop
            ResizeStyle = rsUpdate
          end
          object LabelResultinfo: TLabel
            Left = 0
            Top = 146
            Width = 496
            Height = 13
            Align = alTop
          end
          object pnlQueryTop: TPanel
            Left = 0
            Top = 0
            Width = 496
            Height = 29
            Align = alTop
            Alignment = taLeftJustify
            BevelOuter = bvNone
            BorderWidth = 1
            Caption = 'SQL-Query:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 0
            object pnlQueryToolbar: TPanel
              Left = 272
              Top = 1
              Width = 223
              Height = 27
              Align = alRight
              BevelOuter = bvNone
              BorderWidth = 1
              TabOrder = 0
              object ToolBarQuery: TToolBar
                Left = 1
                Top = 1
                Width = 221
                Height = 25
                Align = alClient
                ButtonHeight = 25
                Caption = 'Query'
                Color = clBtnFace
                DragKind = dkDock
                EdgeInner = esNone
                EdgeOuter = esNone
                Images = MainForm.ImageList1
                ParentColor = False
                ParentShowHint = False
                ShowHint = True
                TabOrder = 0
                Transparent = True
                Wrapable = False
                object btnQueryRun: TToolButton
                  Left = 0
                  Top = 0
                  Action = MainForm.ExecuteQuery
                end
                object btnQueryRunSelected: TToolButton
                  Left = 23
                  Top = 0
                  Action = MainForm.ExecuteSelection
                end
                object btnQueryLoad: TToolButton
                  Left = 46
                  Top = 0
                  Hint = 'Load SQL from Textfile'
                  Caption = 'Load SQL...'
                  DropdownMenu = popupQueryLoad
                  ImageIndex = 6
                  Style = tbsDropDown
                  OnClick = btnQueryLoadClick
                end
                object btnQuerySave: TToolButton
                  Left = 82
                  Top = 0
                  Hint = 'Save SQL to Textfile'
                  Caption = 'Save SQL...'
                  Enabled = False
                  ImageIndex = 7
                  OnClick = btnQuerySaveClick
                end
                object btnQuerySaveSnippet: TToolButton
                  Left = 105
                  Top = 0
                  Hint = 'Save SQL as snippet...'
                  Caption = 'btnQuerySaveSnippet'
                  ImageIndex = 88
                  OnClick = btnQuerySaveSnippetClick
                end
                object btnQueryFind: TToolButton
                  Left = 128
                  Top = 0
                  Hint = 'Find Text...'
                  Caption = 'Find...'
                  ImageIndex = 50
                  OnClick = btnQueryFindClick
                end
                object btnQueryReplace: TToolButton
                  Left = 151
                  Top = 0
                  Hint = 'Search and replace...'
                  Caption = 'Replace ...'
                  ImageIndex = 51
                  OnClick = btnQueryReplaceClick
                end
                object btnQueryStopOnErrors: TToolButton
                  Left = 174
                  Top = 0
                  Hint = 'Stop on MySQL-errors in batch-mode'
                  Caption = 'btnQueryStopOnErrors'
                  Down = True
                  ImageIndex = 47
                  Style = tbsCheck
                  OnClick = btnQueryStopOnErrorsClick
                end
                object btnAltTerminator: TToolButton
                  Left = 197
                  Top = 0
                  Hint = 'Use alternate '#39'//'#39' SQL sentence terminator'
                  Caption = 'btnAltTerminator'
                  ImageIndex = 54
                  Style = tbsCheck
                end
              end
            end
            object PanelCharsInQueryWindow: TPanel
              Left = 200
              Top = 1
              Width = 72
              Height = 27
              Align = alRight
              Alignment = taRightJustify
              BevelOuter = bvNone
              BorderWidth = 2
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
              TabOrder = 1
            end
          end
          object pnlQueryMemo: TPanel
            Left = 0
            Top = 29
            Width = 496
            Height = 96
            Align = alTop
            BevelOuter = bvNone
            Constraints.MinHeight = 10
            TabOrder = 1
            object spltQueryHelpers: TSplitter
              Left = 332
              Top = 0
              Width = 4
              Height = 96
              Cursor = crSizeWE
              Align = alRight
              ResizeStyle = rsUpdate
            end
            object SynMemoQuery: TSynMemo
              Left = 0
              Top = 0
              Width = 332
              Height = 96
              SingleLineMode = False
              Align = alClient
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = 'Courier New'
              Font.Style = []
              PopupMenu = popupQuery
              TabOrder = 0
              OnDragDrop = SynMemoQueryDragDrop
              OnDragOver = SynMemoQueryDragOver
              OnKeyUp = SynMemoQueryKeyUp
              OnMouseUp = SynMemoQueryMouseUp
              Gutter.AutoSize = True
              Gutter.Font.Charset = DEFAULT_CHARSET
              Gutter.Font.Color = clWindowText
              Gutter.Font.Height = -11
              Gutter.Font.Name = 'Terminal'
              Gutter.Font.Style = []
              Gutter.LeftOffset = 10
              Gutter.RightOffset = 0
              Gutter.ShowLineNumbers = True
              Highlighter = SynSQLSyn1
              Options = [eoAutoIndent, eoDropFiles, eoGroupUndo, eoShowScrollHint]
              RightEdge = 40
              SearchEngine = SynEditSearch1
              TabWidth = 2
              WantTabs = True
              OnChange = SynMemoQueryChange
              OnDropFiles = SynMemoQueryDropFiles
              RemovedKeystrokes = <
                item
                  Command = ecDeleteLastChar
                  ShortCut = 8200
                end
                item
                  Command = ecLineBreak
                  ShortCut = 8205
                end
                item
                  Command = ecContextHelp
                  ShortCut = 112
                end
                item
                  Command = ecDeleteLine
                  ShortCut = 16473
                end>
              AddedKeystrokes = <>
            end
            object pnlQueryHelpers: TPanel
              Left = 336
              Top = 0
              Width = 160
              Height = 96
              Align = alRight
              BevelOuter = bvNone
              TabOrder = 1
              object tabsetQueryHelpers: TTabSet
                Left = 0
                Top = 72
                Width = 160
                Height = 24
                Align = alBottom
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'Tahoma'
                Font.Style = []
                ParentShowHint = False
                ShowHint = False
                Style = tsModernTabs
                Tabs.Strings = (
                  'Cols'
                  'SQL fn'
                  'SQL kw'
                  'Snippets')
                TabIndex = 0
                OnChange = tabsetQueryHelpersChange
              end
              object lboxQueryHelpers: TListBox
                Left = 0
                Top = 0
                Width = 160
                Height = 72
                Align = alClient
                DragMode = dmAutomatic
                ItemHeight = 13
                PopupMenu = popupQueryHelpers
                TabOrder = 1
                OnClick = lboxQueryHelpersClick
                OnDblClick = lboxQueryHelpersDblClick
                OnKeyUp = controlsKeyUp
              end
            end
          end
          object gridQuery: TSMDBGrid
            Left = 0
            Top = 159
            Width = 496
            Height = 61
            Align = alClient
            DataSource = DataSource2
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgMultiSelect]
            ParentFont = False
            PopupMenu = popupResultGrid
            TabOrder = 2
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            OnColEnter = DBGridColEnter
            OnDblClick = DBGridDblClick
            OnMouseDown = gridMouseDown
            ExOptions = [eoBooleanAsCheckBox, eoCellHint, eoENTERlikeTAB, eoKeepSelection]
            OnGetCellParams = DBGridGetCellParams
            RegistryKey = 'Software\MikeSoft'
            RegistrySection = 'SMDBGrid'
            WidthOfIndicator = 11
            ScrollBars = ssHorizontal
            ColCount = 2
            RowCount = 2
            Col = 1
            Row = 1
          end
          object ProgressBarQuery: TProgressBar
            Left = 0
            Top = 129
            Width = 496
            Height = 17
            Align = alTop
            Step = 1
            TabOrder = 3
            Visible = False
          end
        end
      end
    end
  end
  object PageControlBottom: TPageControl
    Left = 0
    Top = 256
    Width = 677
    Height = 164
    ActivePage = tabSQLLog
    Align = alBottom
    HotTrack = True
    Images = MainForm.ImageList1
    TabHeight = 20
    TabOrder = 1
    object tabSQLLog: TTabSheet
      Caption = 'SQL Log'
      ImageIndex = 79
      object SynMemoSQLLog: TSynMemo
        Left = 0
        Top = 0
        Width = 669
        Height = 134
        SingleLineMode = True
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = []
        PopupMenu = popupSqlLog
        TabOrder = 0
        OnKeyUp = controlsKeyUp
        Gutter.AutoSize = True
        Gutter.DigitCount = 2
        Gutter.Font.Charset = DEFAULT_CHARSET
        Gutter.Font.Color = clWindowText
        Gutter.Font.Height = -11
        Gutter.Font.Name = 'Terminal'
        Gutter.Font.Style = []
        Highlighter = SynSQLSyn1
        Options = [eoAutoIndent, eoDragDropEditing, eoShowScrollHint, eoSmartTabs, eoTabsToSpaces]
        ReadOnly = True
        RightEdge = 40
        RemovedKeystrokes = <
          item
            Command = ecDeleteLastChar
            ShortCut = 8200
          end
          item
            Command = ecLineBreak
            ShortCut = 8205
          end
          item
            Command = ecContextHelp
            ShortCut = 112
          end
          item
            Command = ecDeleteLine
            ShortCut = 16473
          end>
        AddedKeystrokes = <>
      end
    end
    object tabBlobEditor: TTabSheet
      Caption = 'BLOB-Editor'
      ImageIndex = 80
      object ToolBar3: TToolBar
        Left = 0
        Top = 0
        Width = 23
        Height = 134
        Align = alLeft
        AutoSize = True
        Caption = 'ToolBar1'
        EdgeInner = esNone
        EdgeOuter = esNone
        Images = MainForm.ImageList1
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        Transparent = True
        object btnUnsafeEdit: TToolButton
          Left = 0
          Top = 0
          Caption = 'btnUnsafeEdit'
          Enabled = False
          ImageIndex = 32
          Wrap = True
          OnClick = btnUnsafeEditClick
        end
        object btnBlobWordWrap: TToolButton
          Left = 0
          Top = 22
          Hint = 'Wordwrap'
          Caption = 'ToolButton1'
          ImageIndex = 54
          Wrap = True
          Style = tbsCheck
          OnClick = btnBlobWordWrapClick
        end
        object btnBlobLoad: TToolButton
          Left = 0
          Top = 44
          Hint = 'Open|Open file'
          Caption = 'ToolButton4'
          ImageIndex = 6
          Wrap = True
          OnClick = btnBlobLoadClick
        end
        object btnBlobSave: TToolButton
          Left = 0
          Top = 66
          Hint = 'Save|Save to File'
          Caption = 'ToolButton5'
          ImageIndex = 7
          Wrap = True
          OnClick = btnBlobSaveClick
        end
        object btnBlobViewAsHtml: TToolButton
          Left = 0
          Top = 88
          Action = MainForm.HTMLview
          Wrap = True
        end
        object btnBlobCopy: TToolButton
          Left = 0
          Top = 110
          Hint = 'Copy to clipboard'
          Caption = 'btnBlobCopy'
          ImageIndex = 1
          OnClick = btnBlobCopyClick
        end
      end
      object PageControlBlobEditors: TPageControl
        Left = 23
        Top = 0
        Width = 646
        Height = 134
        ActivePage = tabBlobEditorText
        Align = alClient
        TabOrder = 1
        OnChange = PageControlBlobEditorsChange
        object tabBlobEditorText: TTabSheet
          Caption = 'Text'
          object DBMemo1: TDBMemo
            Left = 0
            Top = 0
            Width = 638
            Height = 106
            Align = alClient
            DataSource = DataSource1
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ScrollBars = ssBoth
            TabOrder = 0
            OnExit = DBMemo1Exit
            OnKeyUp = controlsKeyUp
          end
        end
        object tabBlobEditorImage: TTabSheet
          Caption = 'Image'
          ImageIndex = 1
          object ScrollBox1: TScrollBox
            Left = 0
            Top = 0
            Width = 638
            Height = 106
            Align = alClient
            TabOrder = 0
            object EDBImage1: TEDBImage
              Left = 0
              Top = 0
              Width = 89
              Height = 102
              BorderStyle = bsNone
              Color = clBtnFace
              Stretch = True
              TabOrder = 0
            end
          end
        end
      end
    end
    object tabFilter: TTabSheet
      Caption = 'Filter'
      ImageIndex = 81
      object SynMemoFilter: TSynMemo
        Left = 0
        Top = 29
        Width = 669
        Height = 105
        SingleLineMode = False
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = []
        PopupMenu = popupQuery
        TabOrder = 0
        Gutter.Font.Charset = DEFAULT_CHARSET
        Gutter.Font.Color = clWindowText
        Gutter.Font.Height = -11
        Gutter.Font.Name = 'Terminal'
        Gutter.Font.Style = []
        Gutter.LeftOffset = 10
        Gutter.RightOffset = 0
        Gutter.ShowLineNumbers = True
        Highlighter = SynSQLSyn1
        Options = [eoAutoIndent, eoDragDropEditing, eoShowScrollHint, eoSmartTabs, eoTabsToSpaces]
        RightEdge = 40
        RemovedKeystrokes = <
          item
            Command = ecDeleteLastChar
            ShortCut = 8200
          end
          item
            Command = ecLineBreak
            ShortCut = 8205
          end
          item
            Command = ecContextHelp
            ShortCut = 112
          end
          item
            Command = ecDeleteLine
            ShortCut = 16473
          end>
        AddedKeystrokes = <>
      end
      object Panel10: TPanel
        Left = 0
        Top = 0
        Width = 669
        Height = 29
        Align = alTop
        AutoSize = True
        BevelOuter = bvNone
        TabOrder = 1
        DesignSize = (
          669
          29)
        object ComboBoxWhereFilters: TComboBox
          Left = 168
          Top = 2
          Width = 498
          Height = 21
          Style = csDropDownList
          Anchors = [akLeft, akTop, akRight]
          ItemHeight = 13
          TabOrder = 0
          OnChange = ComboBoxWhereFiltersChange
        end
        object ToolBar4: TToolBar
          Left = 0
          Top = 0
          Width = 159
          Height = 29
          Align = alLeft
          AutoSize = True
          Caption = 'ToolBar1'
          EdgeInner = esNone
          EdgeOuter = esNone
          Images = MainForm.ImageList1
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          Transparent = True
          Wrapable = False
          object btnFilterSet: TToolButton
            Left = 0
            Top = 0
            Hint = 'Set Filter'
            Caption = 'Set Filter'
            ImageIndex = 10
            OnClick = setFilter
          end
          object btnFilterLoad: TToolButton
            Left = 23
            Top = 0
            Hint = 'Open File'
            DropdownMenu = popupFilterOpenFile
            ImageIndex = 6
            Style = tbsDropDown
            OnClick = btnFilterLoadClick
          end
          object btnFilterSave: TToolButton
            Left = 59
            Top = 0
            Hint = 'Save|Save to File'
            ImageIndex = 7
            OnClick = btnFilterSaveClick
          end
          object btnFilterClear: TToolButton
            Left = 82
            Top = 0
            Hint = 'Clear Filter'
            Caption = 'Clear'
            ImageIndex = 70
            OnClick = ClearFilter
          end
          object sepFilter1: TToolButton
            Left = 105
            Top = 0
            Width = 8
            Caption = 'sepFilter1'
            ImageIndex = 9
            Style = tbsSeparator
          end
          object btnFilterPrevious: TToolButton
            Left = 113
            Top = 0
            Hint = 'Previous filter'
            Enabled = False
            ImageIndex = 77
            OnClick = btnFilterPreviousClick
          end
          object btnFilterNext: TToolButton
            Left = 136
            Top = 0
            Hint = 'Next filter'
            Enabled = False
            ImageIndex = 78
            OnClick = btnFilterNextClick
          end
        end
      end
    end
  end
  object popupTreeView: TPopupMenu
    Images = MainForm.ImageList1
    OnPopup = popupTreeViewPopup
    Left = 8
    Top = 48
    object NewDatabase1: TMenuItem
      Caption = 'Create Database...'
      ImageIndex = 73
      OnClick = CreateDatabase
    end
    object PopupmenuDropDatabase: TMenuItem
      Caption = 'Drop Database...'
      ImageIndex = 22
      OnClick = DropDB
    end
    object N17: TMenuItem
      Caption = '-'
    end
    object PopupMenuCreateTable: TMenuItem
      Caption = 'Create Table...'
      ImageIndex = 72
      OnClick = CreateTable
    end
    object PopupMenuDropTable: TMenuItem
      Action = MainForm.DropTable
    end
    object Exporttables2: TMenuItem
      Action = MainForm.ExportTables
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object Drop1: TMenuItem
      Caption = 'Refresh'
      ImageIndex = 18
      ShortCut = 116
      OnClick = ReadDatabasesAndTables
    end
  end
  object popupDbGrid: TPopupMenu
    AutoHotkeys = maManual
    Images = MainForm.ImageList1
    OnPopup = popupDbGridPopup
    Left = 72
    Top = 48
    object menuproperties: TMenuItem
      Caption = 'Properties'
      Default = True
      Enabled = False
      ImageIndex = 9
      OnClick = ListTablesDblClick
    end
    object MenuAdvancedProperties: TMenuItem
      Caption = 'Advanced Properties'
      Enabled = False
      OnClick = MenuAdvancedPropertiesClick
    end
    object menuviewdata: TMenuItem
      Caption = 'View Data'
      Enabled = False
      ImageIndex = 8
      OnClick = MenuViewDataClick
    end
    object menuinsert: TMenuItem
      Caption = 'Insert Record'
      Enabled = False
      ImageIndex = 32
      ShortCut = 45
      OnClick = InsertRecord
    end
    object InsertfilesintoBLOBfields1: TMenuItem
      Action = MainForm.InsertFiles
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object menudroptable: TMenuItem
      Action = MainForm.DropTable
    end
    object menuemptytable: TMenuItem
      Caption = 'Empty ...'
      Enabled = False
      ImageIndex = 31
      ShortCut = 8238
      OnClick = EmptyTable
    end
    object MenuRenameTable: TMenuItem
      Caption = 'Rename'
      Enabled = False
      ShortCut = 113
      OnClick = MenuRenameTableClick
    end
    object MenuTableComment: TMenuItem
      Caption = 'Edit Comment'
      Enabled = False
      ShortCut = 114
      OnClick = MenuTableCommentClick
    end
    object Table1: TMenuItem
      Caption = 'Maintenance'
      object MenuOptimize: TMenuItem
        Caption = 'OPTIMIZE'
        Enabled = False
        OnClick = MenuOptimizeClick
      end
      object MenuCheck: TMenuItem
        Caption = 'CHECK'
        Enabled = False
        OnClick = MenuCheckClick
      end
      object MenuAnalyze: TMenuItem
        Caption = 'ANALYZE'
        Enabled = False
        OnClick = MenuAnalyzeClick
      end
      object MenuRepair: TMenuItem
        Caption = 'REPAIR'
        Enabled = False
        OnClick = MenuRepairClick
      end
      object More1: TMenuItem
        Caption = 'More Maintenance...'
        OnClick = More1Click
      end
    end
    object N18: TMenuItem
      Caption = '-'
    end
    object MenuCopyTable: TMenuItem
      Action = MainForm.CopyTable
    end
    object MenuChangeType: TMenuItem
      Caption = 'Change Type'
      object MenuChangeType1: TMenuItem
        Caption = 'ISAM'
        OnClick = MenuChangeTypeClick
      end
      object MenuChangeType2: TMenuItem
        Caption = 'MyISAM'
        OnClick = MenuChangeTypeClick
      end
      object MenuChangeType3: TMenuItem
        Caption = 'HEAP'
        OnClick = MenuChangeTypeClick
      end
      object MenuChangeType4: TMenuItem
        Caption = 'MERGE'
        OnClick = MenuChangeTypeClick
      end
      object MenuChangeType5: TMenuItem
        Caption = 'InnoDB'
        OnClick = MenuChangeTypeClick
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object MenuChangeTypeOther: TMenuItem
        Caption = 'Other...'
        OnClick = MenuChangeTypeOtherClick
      end
    end
    object menucreatetable: TMenuItem
      Caption = 'Create new Table...'
      ImageIndex = 72
      OnClick = CreateTable
    end
    object Exporttables1: TMenuItem
      Action = MainForm.ExportTables
    end
    object N10: TMenuItem
      Caption = '-'
    end
    object PrintList3: TMenuItem
      Action = MainForm.PrintList
    end
    object menurefresh: TMenuItem
      Tag = 28
      Caption = 'Refresh'
      ImageIndex = 18
      ShortCut = 116
      OnClick = MenuRefreshClick
    end
    object selectall1: TMenuItem
      Caption = 'select all'
      ShortCut = 16449
      Visible = False
      OnClick = selectall1Click
    end
  end
  object popupHost: TPopupMenu
    Images = MainForm.ImageList1
    OnPopup = popupHostPopup
    Left = 41
    Top = 48
    object Kill1: TMenuItem
      Caption = 'Kill Process(es)...'
      Enabled = False
      ImageIndex = 83
      ShortCut = 46
      OnClick = KillProcess
    end
    object MenuAutoupdate: TMenuItem
      Caption = 'Auto-refresh'
      object Set1: TMenuItem
        Caption = 'Set interval...'
        OnClick = Autoupdate1Click
      end
      object EnableAutoRefresh: TMenuItem
        Caption = 'Active'
        RadioItem = True
        ShortCut = 16500
        OnClick = EnableAutoRefreshClick
      end
      object DisableAutoRefresh: TMenuItem
        Caption = 'Inactive'
        Checked = True
        RadioItem = True
        ShortCut = 27
        OnClick = DisableAutoRefreshClick
      end
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object PrintList2: TMenuItem
      Action = MainForm.PrintList
    end
    object Refresh1: TMenuItem
      Tag = 28
      Caption = 'Refresh'
      ImageIndex = 18
      ShortCut = 116
      OnClick = ShowVariablesAndProcesses
    end
  end
  object SynSQLSyn1: TSynSQLSyn
    DefaultFilter = 'SQL files (*.sql)|*.sql'
    CommentAttri.Foreground = clGray
    DataTypeAttri.Foreground = clMaroon
    FunctionAttri.Foreground = clNavy
    KeyAttri.Foreground = clBlue
    NumberAttri.Foreground = clPurple
    StringAttri.Foreground = clGreen
    SymbolAttri.Foreground = clBlue
    TableNameAttri.Foreground = clFuchsia
    VariableAttri.Foreground = clPurple
    SQLDialect = sqlMySQL
    Left = 7
    Top = 192
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'sql'
    Filter = 'SQL-Scripts (*.sql)|*.sql|All files (*.*)|*.*'
    Left = 7
    Top = 120
  end
  object TimerHostUptime: TTimer
    OnTimer = TimerHostUptimeTimer
    Left = 7
    Top = 157
  end
  object popupTableGrid: TPopupMenu
    Images = MainForm.ImageList1
    Left = 104
    Top = 48
    object MenuEditField: TMenuItem
      Caption = 'Properties'
      Default = True
      ImageIndex = 9
      ShortCut = 32781
      OnClick = UpdateField
    end
    object MenuAddField: TMenuItem
      Caption = 'Add Field...'
      ImageIndex = 34
      ShortCut = 16449
      OnClick = MenuAddFieldClick
    end
    object DropField1: TMenuItem
      Caption = 'Drop Field(s)...'
      Hint = 'Delete Field(s) from Table'
      ImageIndex = 33
      ShortCut = 16430
      OnClick = DropField
    end
    object menuRenameColumn: TMenuItem
      Caption = 'Rename Field'
      ShortCut = 113
      OnClick = menuRenameColumnClick
    end
    object N16: TMenuItem
      Caption = '-'
    end
    object ManageIndexes1: TMenuItem
      Caption = '&Manage Indexes...'
      OnClick = ManageIndexes1Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object Insertrecord2: TMenuItem
      Caption = 'Insert record...'
      ImageIndex = 32
      ShortCut = 45
      OnClick = InsertRecord
    end
    object InsertfilesintoBLOBfields2: TMenuItem
      Action = MainForm.InsertFiles
    end
    object PrintList4: TMenuItem
      Action = MainForm.PrintList
    end
    object Refresh2: TMenuItem
      Tag = 28
      Caption = 'Refresh'
      Hint = 'Refresh|Refresh Field-List'
      ImageIndex = 18
      ShortCut = 116
      OnClick = RefreshFieldListClick
    end
  end
  object popupDataGrid: TPopupMenu
    AutoHotkeys = maManual
    Images = MainForm.ImageList1
    OnPopup = popupDataGridPopup
    Left = 136
    Top = 48
    object Copy3: TMenuItem
      Action = MainForm.EditCopy1
    end
    object Paste2: TMenuItem
      Action = MainForm.EditPaste1
    end
    object setNULL1: TMenuItem
      Caption = 'Set NULL'
      ShortCut = 24654
      OnClick = setNULL1Click
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object Delete1: TMenuItem
      Caption = 'Delete record(s)'
      ImageIndex = 23
      ShortCut = 16430
      OnClick = Delete1Click
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object QuickFilter1: TMenuItem
      Caption = 'Quick Filter'
      ImageIndex = 81
      object QF1: TMenuItem
        AutoHotkeys = maManual
        Caption = 'Column = Value'
        OnClick = QuickFilterClick
      end
      object QF2: TMenuItem
        AutoHotkeys = maManual
        Caption = 'Column != Value'
        OnClick = QuickFilterClick
      end
      object QF3: TMenuItem
        AutoHotkeys = maManual
        Caption = 'Column > Value'
        OnClick = QuickFilterClick
      end
      object QF4: TMenuItem
        AutoHotkeys = maManual
        Caption = 'Column < Value'
        OnClick = QuickFilterClick
      end
      object QF5: TMenuItem
        Caption = 'Column LIKE Value%'
        OnClick = QuickFilterClick
      end
      object QF6: TMenuItem
        Caption = 'Column LIKE %Value'
        OnClick = QuickFilterClick
      end
      object QF7: TMenuItem
        Caption = 'Column LIKE %Value%'
        OnClick = QuickFilterClick
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object QF8: TMenuItem
        Caption = 'Column = ...'
        OnClick = QuickFilterClick
      end
      object QF9: TMenuItem
        Caption = 'Column != ...'
        OnClick = QuickFilterClick
      end
      object QF10: TMenuItem
        Caption = 'Column > ...'
        OnClick = QuickFilterClick
      end
      object QF11: TMenuItem
        Caption = 'Column < ...'
        OnClick = QuickFilterClick
      end
      object QF12: TMenuItem
        Caption = 'Column like ...'
        OnClick = QuickFilterClick
      end
      object N7: TMenuItem
        AutoHotkeys = maManual
        Caption = '-'
      end
      object QF13: TMenuItem
        Caption = 'Column = CLIPBOARD'
        ImageIndex = 2
        OnClick = QuickFilterClick
      end
      object QF14: TMenuItem
        Caption = 'Column != CLIPBOARD'
        ImageIndex = 2
        OnClick = QuickFilterClick
      end
      object QF15: TMenuItem
        Caption = 'Column > CLIPBOARD'
        ImageIndex = 2
        OnClick = QuickFilterClick
      end
      object QF16: TMenuItem
        Caption = 'Column < CLIPBOARD'
        ImageIndex = 2
        OnClick = QuickFilterClick
      end
      object QF17: TMenuItem
        Caption = 'Column LIKE %CLIPBOARD%'
        ImageIndex = 2
        OnClick = QuickFilterClick
      end
      object N21: TMenuItem
        Caption = '-'
      end
      object DropFilter1: TMenuItem
        Caption = 'Drop Filter'
        ImageIndex = 70
        OnClick = DropFilter1Click
      end
    end
    object Filter1: TMenuItem
      Caption = 'Filter...'
      OnClick = Filter1Click
    end
    object MenuLimit: TMenuItem
      Caption = 'Limit'
      Checked = True
      OnClick = MenuLimitClick
    end
    object Find1: TMenuItem
      Action = MainForm.DataSearch
    end
    object N9: TMenuItem
      Caption = '-'
    end
    object Copytableas1: TMenuItem
      Tag = 46
      Caption = 'Copy data'
      object CopyasCSVData1: TMenuItem
        Tag = 48
        Action = MainForm.Copy2CSV
      end
      object CopycontentsasHTML1: TMenuItem
        Tag = 49
        Action = MainForm.CopyHTMLtable
      end
      object CopyasXMLdata1: TMenuItem
        Action = MainForm.Copy2XML
      end
    end
    object Exportdata2: TMenuItem
      Action = MainForm.ExportData
    end
    object N12: TMenuItem
      Caption = '-'
    end
    object DataInsertDateTime: TMenuItem
      Caption = 'Insert Date/Time'
      object DataDateTime: TMenuItem
        Caption = 'datetime'
        Hint = 'Insert datetime-value'
        OnClick = InsertDate
      end
      object DataDate: TMenuItem
        Caption = 'date'
        Hint = 'Insert date-value'
        OnClick = InsertDate
      end
      object DataTime: TMenuItem
        Caption = 'time'
        Hint = 'Insert time-value'
        OnClick = InsertDate
      end
      object DataTimestamp: TMenuItem
        Caption = 'timestamp'
        Hint = 'Insert timestamp-value'
        OnClick = InsertDate
      end
      object DataYear: TMenuItem
        Caption = 'year'
        Hint = 'Insert year-value'
        OnClick = InsertDate
      end
    end
    object MenuViewBlob: TMenuItem
      Caption = 'Edit Memo/BLOB'
      OnClick = MenuViewBlobClick
    end
    object ViewasHTML1: TMenuItem
      Action = MainForm.HTMLview
    end
    object InsertfilesintoBLOBfields3: TMenuItem
      Action = MainForm.InsertFiles
    end
    object N19: TMenuItem
      Caption = '-'
    end
    object menuSQLhelpData: TMenuItem
      Caption = 'Lookup field datatype in SQL help ...'
      ImageIndex = 96
      ShortCut = 112
      OnClick = menuSQLhelpClick
    end
    object Refresh3: TMenuItem
      Tag = 28
      Caption = 'Refresh'
      ImageIndex = 18
      ShortCut = 116
      OnClick = viewdata
    end
  end
  object popupResultGrid: TPopupMenu
    Images = MainForm.ImageList1
    OnPopup = popupResultGridPopup
    Left = 8
    Top = 80
    object Copy4: TMenuItem
      Action = MainForm.EditCopy1
    end
    object HTMLview1: TMenuItem
      Action = MainForm.HTMLview
    end
    object N14: TMenuItem
      Caption = '-'
    end
    object Copyrecords1: TMenuItem
      Tag = 48
      Action = MainForm.Copy2CSV
    end
    object CopycontentsasHTML2: TMenuItem
      Tag = 49
      Action = MainForm.CopyHTMLtable
    end
    object CopyasXMLdata2: TMenuItem
      Action = MainForm.Copy2XML
    end
    object Exportdata1: TMenuItem
      Action = MainForm.ExportData
    end
  end
  object TimerConnected: TTimer
    Enabled = False
    OnTimer = TimerConnectedTimer
    Left = 103
    Top = 157
  end
  object popupSqlLog: TPopupMenu
    Images = MainForm.ImageList1
    Left = 40
    Top = 80
    object Copy1: TMenuItem
      Action = MainForm.EditCopy1
    end
    object Clear2: TMenuItem
      Caption = 'Clear'
      OnClick = Clear2Click
    end
    object N15: TMenuItem
      Caption = '-'
    end
    object Markall3: TMenuItem
      Caption = 'Select all'
      OnClick = Markall3Click
    end
    object N13: TMenuItem
      Caption = '-'
    end
    object EditQuery1: TMenuItem
      Caption = 'Edit Selection'
      OnClick = EditQuery1Click
    end
    object Saveastextfile1: TMenuItem
      Caption = 'Save as textfile...'
      ImageIndex = 7
      OnClick = Saveastextfile1Click
    end
  end
  object TimerConnectErrorCloseWindow: TTimer
    Enabled = False
    Interval = 10
    OnTimer = TimerConnectErrorCloseWindowTimer
    Left = 39
    Top = 157
  end
  object DataSource1: TDataSource
    OnDataChange = DataSourceDataChange
    Left = 304
    Top = 136
  end
  object DataSource2: TDataSource
    OnDataChange = DataSourceDataChange
    Left = 304
    Top = 168
  end
  object popupFilterOpenFile: TPopupMenu
    Left = 272
    Top = 278
  end
  object OpenDialog2: TOpenDialog
    Left = 302
    Top = 278
  end
  object TimerHost: TTimer
    Enabled = False
    Interval = 5000
    OnTimer = ShowVariablesAndProcesses
    Left = 72
    Top = 157
  end
  object SaveDialogExportData: TExportSaveDialog
    DefaultExt = 'csv'
    Filter = 
      'CSV-Files (*.csv)|*.csv|Hypertext-Files (*.html)|*.html|XML-File' +
      's (*.xml)|*.xml'
    Options = [ofOverwritePrompt, ofEnableSizing]
    OnTypeChange = SaveDialogExportDataTypeChange
    VisibleOptions = voCSV
    ConvertHTMLSpecialChars = False
    Left = 72
    Top = 120
  end
  object ZSQLMonitor1: TZSQLMonitor
    Active = True
    MaxTraceCount = 100
    OnLogTrace = ZSQLMonitor1LogTrace
    Left = 224
    Top = 168
  end
  object popupDbGridHeader: TPopupMenu
    AutoHotkeys = maManual
    AutoLineReduction = maManual
    Left = 72
    Top = 80
    object DefaultColumnLayout1: TMenuItem
      Tag = 1
      Caption = 'Default columns'
      Checked = True
      OnClick = MenuTablelistColumnsClick
    end
    object N20: TMenuItem
      Caption = '-'
    end
  end
  object SynCompletionProposal1: TSynCompletionProposal
    Options = [scoLimitToMatchedText, scoUseInsertList, scoUsePrettyText, scoUseBuiltInTimer, scoEndCharCompletion, scoCompleteWithTab, scoCompleteWithEnter]
    Width = 262
    EndOfTokenChr = '()[]. ='
    TriggerChars = '.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clBtnText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = [fsBold]
    Columns = <
      item
        BiggestWord = 'databasemore'
      end
      item
        BiggestWord = 'IHAVENOCLUEWHICHLENGTH'
        DefaultFontStyle = [fsBold]
      end>
    ItemHeight = 18
    Images = MainForm.ImageList1
    Margin = 1
    OnExecute = SynCompletionProposal1Execute
    ShortCut = 16416
    Editor = SynMemoQuery
    TimerInterval = 500
    OnAfterCodeCompletion = SynCompletionProposal1AfterCodeCompletion
    OnCodeCompletion = SynCompletionProposal1CodeCompletion
    Left = 40
    Top = 192
  end
  object popupQueryLoad: TPopupMenu
    Left = 104
    Top = 80
  end
  object OpenDialogSQLFile: TOpenDialog
    DefaultExt = 'sql'
    Filter = 'SQL-Scripts (*.sql)|*.sql|All files (*.*)|*.*'
    Left = 40
    Top = 120
  end
  object SaveDialogSQLFile: TSaveDialog
    DefaultExt = 'sql'
    Filter = 'SQL-Scripts (*.sql)|*.sql|All Files (*.*)|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 104
    Top = 120
  end
  object FindDialogQuery: TFindDialog
    OnFind = FindDialogQueryFind
    Left = 8
    Top = 224
  end
  object SynEditSearch1: TSynEditSearch
    Left = 72
    Top = 192
  end
  object ReplaceDialogQuery: TReplaceDialog
    OnFind = ReplaceDialogQueryFind
    OnReplace = ReplaceDialogQueryReplace
    Left = 40
    Top = 224
  end
  object popupQuery: TPopupMenu
    Images = MainForm.ImageList1
    OnPopup = popupQueryPopup
    Left = 136
    Top = 80
    object MenuRun: TMenuItem
      Action = MainForm.ExecuteQuery
    end
    object MenuRunSelection: TMenuItem
      Action = MainForm.ExecuteSelection
    end
    object MenuRunLine: TMenuItem
      Action = MainForm.ExecuteLine
    end
    object MenuSetFilter: TMenuItem
      Caption = 'Set Filter'
      ImageIndex = 10
      Visible = False
      OnClick = setFilter
    end
    object MenuItem1: TMenuItem
      Caption = '-'
    end
    object menucopy: TMenuItem
      Action = MainForm.EditCopy1
    end
    object menupaste: TMenuItem
      Action = MainForm.EditPaste1
    end
    object menuclear: TMenuItem
      Caption = 'Clear'
      ShortCut = 16471
      OnClick = menuclearClick
    end
    object N22: TMenuItem
      Caption = '-'
    end
    object MenuFind: TMenuItem
      Caption = 'Find...'
      ImageIndex = 50
      ShortCut = 16454
      OnClick = btnQueryFindClick
    end
    object MenuReplace: TMenuItem
      Caption = 'Replace ...'
      Hint = 'Search and replace...'
      ImageIndex = 51
      ShortCut = 16466
      OnClick = btnQueryReplaceClick
    end
    object MenuItem2: TMenuItem
      Caption = '-'
    end
    object menuload: TMenuItem
      Caption = 'Load from file ...'
      ImageIndex = 6
      OnClick = btnQueryLoadClick
    end
    object menuInsertFileAtCursor: TMenuItem
      Caption = 'Insert file at cursor ...'
      ImageIndex = 6
      OnClick = menuInsertFileAtCursorClick
    end
    object menusave: TMenuItem
      Caption = 'Save to file ...'
      ImageIndex = 7
      OnClick = btnQuerySaveClick
    end
    object menuSaveSelectionToFile: TMenuItem
      Tag = 1
      Caption = 'Save selection to file ...'
      ImageIndex = 7
      OnClick = btnQuerySaveClick
    end
    object menuSaveAsSnippet: TMenuItem
      Caption = 'Save as snippet ...'
      ImageIndex = 88
      OnClick = btnQuerySaveSnippetClick
    end
    object menuSaveSelectionAsSnippet: TMenuItem
      Tag = 1
      Caption = 'Save selection as snippet ...'
      ImageIndex = 88
      OnClick = btnQuerySaveSnippetClick
    end
    object N23: TMenuItem
      Caption = '-'
    end
    object menuSQLhelp: TMenuItem
      Caption = 'Lookup in SQL help ...'
      ImageIndex = 96
      ShortCut = 112
      OnClick = menuSQLhelpClick
    end
    object N24: TMenuItem
      Caption = '-'
    end
  end
  object popupQueryHelpers: TPopupMenu
    Images = MainForm.ImageList1
    Left = 168
    Top = 80
    object menuInsertSnippetAtCursor: TMenuItem
      Caption = 'Insert at cursor'
      Default = True
      Enabled = False
      ImageIndex = 47
      OnClick = menuInsertSnippetAtCursorClick
    end
    object menuLoadSnippet: TMenuItem
      Caption = 'Load'
      Enabled = False
      ImageIndex = 6
      OnClick = menuLoadSnippetClick
    end
    object menuDeleteSnippet: TMenuItem
      Caption = 'Delete ...'
      Enabled = False
      ImageIndex = 23
      ShortCut = 46
      OnClick = menuDeleteSnippetClick
    end
    object menuExplore: TMenuItem
      Caption = 'Explore folder'
      Enabled = False
      OnClick = menuExploreClick
    end
    object menuHelp: TMenuItem
      Caption = 'Help'
      ImageIndex = 96
      ShortCut = 112
      OnClick = CallSQLHelp
    end
  end
end