object fmArrange: TfmArrange
  Left = 276
  Top = 221
  Width = 640
  Height = 411
  HelpContext = 1
  Caption = 'Arrange'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  Menu = MainMenu1
  Position = poDefault
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnKeyUp = FormKeyUp
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object SplitBrowser: TSplitIt
    Left = 138
    Top = 54
    Width = 3
    Height = 311
    Cursor = crHSplit
    Hint = 'Click and drag to resize browser'
    SplitDirection = sdHorizontal
    OnSplit = SplitBrowserSplit
    Align = alLeft
    ParentShowHint = False
    ShowHint = True
  end
  object panelControl: TPanel
    Left = 0
    Top = 0
    Width = 632
    Height = 27
    Align = alTop
    BevelOuter = bvNone
    Color = 13421772
    Locked = True
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnDblClick = panelControlDblClick
    object btnLoop: TSpeedButton
      Left = 2
      Top = 3
      Width = 55
      Height = 20
      Hint = '[/] Loop on/off'
      AllowAllUp = True
      GroupIndex = 1
      Caption = 'Loop'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      Glyph.Data = {
        C6000000424DC60000000000000076000000280000000A0000000A0000000100
        0400000000005000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFF00
        0000FFF4444FFF000000FFCCCCC4FF000000FCC4FFFFFF000000FC4FFFF44F00
        0000FC4FFF4C44000000FCC4FFFC4F000000FFCC4444FF000000FFFCCC4FFF00
        0000FFFFFFFFFF000000}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = btnLoopClick
    end
    object sbBeep: TSpeedButton
      Left = 59
      Top = 3
      Width = 54
      Height = 20
      Hint = '[B] Beep on/off'
      AllowAllUp = True
      GroupIndex = 2
      Down = True
      Caption = 'Beep'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
        000000000000000000000000000000000000000000000CC00000000000000CC0
        0000000000CC0CC00000000000CC0CC00000000CC0CC0CC00000000CC0CC0CC0
        0000000000CC0CC00000000000CC0CC00000000000000CC00000000000000CC0
        0000000000000000000000000000000000000000000000000000}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = 0
      OnClick = sbBeepClick
    end
    object btnThru: TSpeedButton
      Left = 116
      Top = 3
      Width = 38
      Height = 20
      Hint = 'Midi thru on/off'
      AllowAllUp = True
      GroupIndex = 5
      Down = True
      Caption = 'Thru'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = btnThruClick
    end
    object btnAutoQ: TSpeedButton
      Left = 157
      Top = 3
      Width = 50
      Height = 20
      Hint = '[A] Auto quantize on/off'
      AllowAllUp = True
      GroupIndex = 4
      Caption = 'Auto Q'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = btnAutoQClick
    end
    object LabelBpm: TLabel
      Left = 220
      Top = 6
      Width = 25
      Height = 14
      Caption = 'bpm'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      OnClick = LabelBpmClick
    end
    object Label2: TLabel
      Left = 296
      Top = 6
      Width = 39
      Height = 14
      Caption = 'Editres'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label3: TLabel
      Left = 384
      Top = 6
      Width = 49
      Height = 14
      Cursor = crHandPoint
      Hint = 'Restart current location'
      Caption = 'Locators'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      OnClick = Label3Click
    end
    object sbSTore: TSpeedButton
      Left = 537
      Top = 3
      Width = 43
      Height = 20
      Hint = 'Store locators'
      AllowAllUp = True
      Caption = 'Store'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = sbSToreClick
    end
    object sbNextLoc: TSpeedButton
      Left = 603
      Top = 3
      Width = 18
      Height = 20
      Hint = '[>] Next location'
      AllowAllUp = True
      Caption = '>'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = 16744448
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = sbNextLocClick
    end
    object sbPrevLoc: TSpeedButton
      Left = 583
      Top = 3
      Width = 18
      Height = 20
      Hint = '[<] Previous location'
      AllowAllUp = True
      Caption = '<'
      Enabled = False
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = 16744448
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = sbPrevLocClick
    end
    object panelRes: TPanel
      Left = 340
      Top = 3
      Width = 30
      Height = 19
      Cursor = crHandPoint
      Hint = '[Click] Set edit resolution'
      BevelOuter = bvNone
      Caption = '16'
      Color = clBlack
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnMouseDown = panelResMouseDown
      OnMouseUp = panelResMouseUp
    end
    object panelBpm: TPanel
      Left = 252
      Top = 3
      Width = 30
      Height = 19
      BevelOuter = bvNone
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      object editBpm: TEditIncDec
        Left = 5
        Top = 3
        Width = 33
        Height = 21
        Hint = 'Tempo'
        TabStop = False
        BorderStyle = bsNone
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupTempo
        TabOrder = 0
        Text = '120'
        OnDblClick = editBpmDblClick
        OnKeyDown = editBpmKeyDown
        Min = 50
        Max = 250
      end
    end
    object comboPos: TComboBox
      Left = 437
      Top = 4
      Width = 100
      Height = 19
      Hint = '[Shift + F1 - F10] Select defined locator positions'
      TabStop = False
      Style = csOwnerDrawFixed
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      Items.Strings = (
        'Undefined'
        'Undefined'
        'Undefined'
        'Undefined'
        'Undefined')
      ParentFont = False
      TabOrder = 2
      OnChange = comboPosChange
      OnDrawItem = comboPosDrawItem
    end
  end
  object PanelTracks: TPanel
    Left = 141
    Top = 54
    Width = 491
    Height = 311
    Align = alClient
    BevelOuter = bvNone
    Caption = 'PanelTracks'
    TabOrder = 1
    object SplitIt1: TSplitIt
      Left = 180
      Top = 0
      Width = 3
      Height = 311
      Cursor = crHSplit
      Hint = 'Click and drag to resize tracks'
      SplitDirection = sdHorizontal
      OnSplit = SplitIt1Split
      Align = alLeft
      ParentShowHint = False
      ShowHint = True
    end
    object PanelTT: TPanel
      Left = 0
      Top = 0
      Width = 180
      Height = 311
      Align = alLeft
      BevelOuter = bvNone
      BorderStyle = bsSingle
      Caption = 'PanelTT'
      TabOrder = 0
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 176
        Height = 307
        Align = alClient
        BevelOuter = bvNone
        FullRepaint = False
        Caption = 'Panel1'
        Color = clSilver
        TabOrder = 0
        object trackTitles: THeaderControl
          Left = 0
          Top = 0
          Width = 176
          Height = 19
          HotTrack = True
          Sections = <
            item
              AllowClick = False
              MaxWidth = 40
              MinWidth = 10
              Style = hsOwnerDraw
              Text = 'Inp'
              Width = 16
            end
            item
              MinWidth = 40
              Text = 'Name'
              Width = 80
            end
            item
              Alignment = taCenter
              MaxWidth = 30
              MinWidth = 30
              Text = 'Ch'
              Width = 30
            end
            item
              Alignment = taCenter
              MaxWidth = 25
              MinWidth = 25
              Text = 'M'
              Width = 25
            end
            item
              MinWidth = 60
              Text = 'Output'
              Width = 120
            end
            item
              Alignment = taCenter
              MaxWidth = 70
              MinWidth = 35
              Text = 'Prog'
              Width = 50
            end
            item
              Alignment = taCenter
              MinWidth = 46
              Text = 'Transp'
              Width = 46
            end
            item
              Alignment = taCenter
              MinWidth = 50
              Text = 'Mode'
              Width = 50
            end>
          ShowHint = False
          ParentShowHint = False
          OnMouseMove = trackTitlesMouseMove
          OnDrawSection = trackTitlesDrawSection
          OnSectionClick = trackTitlesSectionClick
          OnSectionTrack = trackTitlesSectionTrack
        end
        object tracks: TScroll
          Left = 0
          Top = 19
          Width = 176
          Height = 288
          ShowHint = False
          TabOrder = 1
          ParentFont = False
          ParentShowHint = False
          PopupMenu = PopupTracks
          Font.Charset = ANSI_CHARSET
          Font.Color = clWhite
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsItalic]
          Align = alClient
          Color = clBlack
          OnPaint = tracksPaint
          OnMouseDown = tracksMouseDown
          OnMouseMove = tracksMouseMove
          OnMouseUp = tracksMouseUp
          OnDblClick = tracksDblClick
        end
      end
    end
    object panelBackArrange: TPanel
      Left = 183
      Top = 0
      Width = 308
      Height = 311
      Align = alClient
      BevelOuter = bvNone
      FullRepaint = False
      Caption = 'panelBackArrange'
      TabOrder = 1
      object panelMeter: TPanel
        Left = 0
        Top = 0
        Width = 308
        Height = 19
        Align = alTop
        BevelOuter = bvNone
        BorderStyle = bsSingle
        Caption = 'panelMeter'
        TabOrder = 0
        object meter: TScroll
          Left = 0
          Top = 0
          Width = 304
          Height = 15
          TabOrder = 0
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clGray
          Font.Height = -9
          Font.Name = 'Small Fonts'
          Font.Style = []
          Align = alClient
          Color = clWhite
          OnPaint = meterPaint
          OnMouseDown = meterMouseDown
          OnMouseMove = meterMouseMove
          OnMouseUp = meterMouseUp
        end
      end
      object panelArrange: TPanel
        Left = 0
        Top = 19
        Width = 308
        Height = 292
        Align = alClient
        BevelOuter = bvNone
        BorderStyle = bsSingle
        FullRepaint = False
        Caption = 'Panel2'
        TabOrder = 1
        object Image1: TImage
          Left = 56
          Top = 40
          Width = 16
          Height = 16
          AutoSize = True
          Picture.Data = {<image000.bmp>}
        end
        object arrange: TScroll
          Left = 0
          Top = 0
          Width = 288
          Height = 272
          TabOrder = 2
          ParentFont = False
          PopupMenu = popupArrange
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsItalic]
          Align = alClient
          Color = clBlack
          OnPaint = arrangePaint
          OnMouseDown = arrangeMouseDown
          OnMouseMove = arrangeMouseMove
          OnMouseUp = arrangeMouseUp
          OnDblClick = arrangeDblClick
        end
        object panelScrollHorz: TPanel
          Left = 0
          Top = 272
          Width = 304
          Height = 16
          Align = alBottom
          BevelOuter = bvNone
          FullRepaint = False
          Caption = 'panelScrollHorz'
          TabOrder = 1
          object panelScrollArrangeVert: TPanel
            Left = 0
            Top = 0
            Width = 288
            Height = 16
            Align = alClient
            BevelOuter = bvNone
            FullRepaint = False
            TabOrder = 0
            object sbHorzLess: TSpeedButton
              Left = 209
              Top = 0
              Width = 15
              Height = 16
              Hint = 'Zoom out'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              Glyph.Data = {
                BE000000424DBE00000000000000760000002800000009000000090000000100
                0400000000004800000000000000000000001000000000000000000000000000
                80000080000000808000800000008000800080800000C0C0C000808080000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFCFF000
                0000FFFFFCCFF0000000FFFFCCCFF0000000FFFCCCCFF0000000FFCCCCCFF000
                0000FFFCCCCFF0000000FFFFCCCFF0000000FFFFFCCFF0000000FFFFFFCFF000
                0000}
              ParentFont = False
              ParentShowHint = False
              ShowHint = True
              Spacing = 0
              OnClick = sbHorzLessClick
            end
            object sbHorzMore: TSpeedButton
              Left = 225
              Top = 0
              Width = 15
              Height = 16
              Hint = 'Zoom in'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              Glyph.Data = {
                BE000000424DBE00000000000000760000002800000009000000090000000100
                0400000000004800000000000000000000001000000000000000000000000000
                80000080000000808000800000008000800080800000C0C0C000808080000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFCFFFFFF000
                0000FFCCFFFFF0000000FFCCCFFFF0000000FFCCCCFFF0000000FFCCCCCFF000
                0000FFCCCCFFF0000000FFCCCFFFF0000000FFCCFFFFF0000000FFCFFFFFF000
                0000}
              ParentFont = False
              ParentShowHint = False
              ShowHint = True
              Spacing = 0
              OnClick = sbHorzMoreClick
            end
            object sbNavigator: TSpeedButton
              Left = 192
              Top = 0
              Width = 15
              Height = 16
              Hint = 'Transporter on/off'
              Caption = 'T'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlue
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              ParentFont = False
              ParentShowHint = False
              ShowHint = True
              Spacing = 0
              OnClick = sbNavigatorClick
            end
            object scrollx: TScrollBar
              Left = 56
              Top = 0
              Width = 121
              Height = 16
              Max = 1000
              TabOrder = 0
              TabStop = False
              OnChange = scrollxChange
              OnScroll = scrollxScroll
            end
          end
          object panelCorner: TPanel
            Left = 288
            Top = 0
            Width = 16
            Height = 16
            Align = alRight
            BevelOuter = bvNone
            TabOrder = 1
            object SpeedButton2: TSpeedButton
              Left = 0
              Top = 0
              Width = 15
              Height = 16
              Hint = 'Zoom 1:1'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              Glyph.Data = {
                C6000000424DC60000000000000076000000280000000A0000000A0000000100
                0400000000005000000000000000000000001000000000000000000000000000
                80000080000000808000800000008000800080800000C0C0C000808080000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFF00
                0000FCCCCCCFFF000000FCCCCCFFFF000000FCCCCFFFCF000000FCCCFFFCCF00
                0000FCCFFFCCCF000000FCFFFCCCCF000000FFFFCCCCCF000000FFFCCCCCCF00
                0000FFFFFFFFFF000000}
              ParentFont = False
              ParentShowHint = False
              ShowHint = True
              Spacing = 0
              OnClick = SpeedButton2Click
            end
          end
        end
        object panelArrangeScrollVert: TPanel
          Left = 288
          Top = 0
          Width = 16
          Height = 272
          Align = alRight
          BevelOuter = bvNone
          FullRepaint = False
          Caption = 'panelArrangeScrollVert'
          TabOrder = 0
          object sbVertMore: TSpeedButton
            Left = 1
            Top = 168
            Width = 15
            Height = 16
            Hint = 'Zoom in'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            Glyph.Data = {
              BE000000424DBE00000000000000760000002800000009000000090000000100
              0400000000004800000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
              0000FFFFFFFFF0000000FFFFCFFFF0000000FFFCCCFFF0000000FFCCCCCFF000
              0000FCCCCCCCF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFFFFFFFF000
              0000}
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            Spacing = 0
            OnClick = sbVertMoreClick
          end
          object sbVertLess: TSpeedButton
            Left = 1
            Top = 152
            Width = 15
            Height = 16
            Hint = 'Zoom out'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            Glyph.Data = {
              BE000000424DBE00000000000000760000002800000009000000090000000100
              0400000000004800000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
              0000FFFFFFFFF0000000CCCCCCCCC0000000FCCCCCCCF0000000FFCCCCCFF000
              0000FFFCCCFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFFFFFFFF000
              0000}
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            Spacing = 0
            OnClick = sbVertLessClick
          end
          object scrolly: TScrollBar
            Left = 0
            Top = 8
            Width = 16
            Height = 121
            Kind = sbVertical
            LargeChange = 72
            Max = 50
            SmallChange = 18
            TabOrder = 0
            TabStop = False
            OnChange = scrollyChange
          end
        end
      end
    end
  end
  object panelBrowse: TPanel
    Left = 0
    Top = 54
    Width = 138
    Height = 311
    Align = alLeft
    BevelOuter = bvNone
    Caption = 'panelBrowse'
    TabOrder = 2
    Visible = False
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 138
      Height = 24
      Align = alTop
      BevelOuter = bvNone
      Color = clSilver
      TabOrder = 0
      object btnNextBrowser: TSpeedButton
        Left = 3
        Top = 4
        Width = 23
        Height = 17
        Cursor = crHandPoint
        Hint = 'Browse locators'
        Caption = '>>'
        Flat = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        OnClick = btnNextBrowserClick
      end
      object Panel3: TPanel
        Left = 121
        Top = 0
        Width = 17
        Height = 24
        Align = alRight
        BevelOuter = bvNone
        Color = clSilver
        TabOrder = 0
        object SpeedButton5: TSpeedButton
          Left = 0
          Top = 4
          Width = 17
          Height = 17
          Cursor = crHandPoint
          Hint = 'Close'
          Flat = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clWhite
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Glyph.Data = {
            BE000000424DBE00000000000000760000002800000009000000090000000100
            0400000000004800000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777000
            000077777777700000007777F77770000000777777777000000077FFFFF77000
            00007777777770000000FFFFFFFFF00000007777777770000000777777777000
            0000}
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = SpeedButton5Click
        end
      end
    end
    object panelFile: TPanel
      Left = 8
      Top = 48
      Width = 185
      Height = 177
      BevelOuter = bvNone
      Caption = 'panelFile'
      TabOrder = 1
      object SplitIt2: TSplitIt
        Left = 0
        Top = 100
        Width = 185
        Height = 3
        Hint = 'Click and drag to resize'
        OnSplit = SplitIt2Split
        Align = alTop
        ParentShowHint = False
        ShowHint = True
      end
      object DirectoryListBox1: TDirectoryListBox
        Left = 0
        Top = 0
        Width = 185
        Height = 100
        Cursor = crHandPoint
        TabStop = False
        Align = alTop
        Color = clBlack
        FileList = FileListBox1
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 16
        ParentFont = False
        TabOrder = 0
        OnMouseUp = DirectoryListBox1MouseUp
      end
      object FileListBox1: TFileListBox
        Left = 0
        Top = 103
        Width = 185
        Height = 74
        Cursor = crHandPoint
        TabStop = False
        Align = alClient
        Color = clBlack
        Ctl3D = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 16
        Mask = '*.seq;*.mid'
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 1
        OnDblClick = FileListBox1DblClick
        OnMouseUp = FileListBox1MouseUp
      end
    end
    object panelArea: TPanel
      Left = 48
      Top = 112
      Width = 185
      Height = 161
      BevelOuter = bvNone
      Caption = 'panelArea'
      TabOrder = 2
      Visible = False
      object listArea: TListBox
        Left = 0
        Top = 0
        Width = 185
        Height = 161
        Cursor = crHandPoint
        TabStop = False
        Align = alClient
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 14
        ParentFont = False
        TabOrder = 0
        OnDblClick = listAreaDblClick
        OnMouseUp = listAreaMouseUp
      end
    end
  end
  object panelTrackInfo: TPanel
    Left = 0
    Top = 27
    Width = 632
    Height = 27
    Align = alTop
    BevelOuter = bvNone
    Color = 13421772
    TabOrder = 3
    object Label1: TLabel
      Left = 8
      Top = 6
      Width = 15
      Height = 14
      Caption = 'Ch'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label4: TLabel
      Left = 128
      Top = 6
      Width = 37
      Height = 14
      Caption = 'Output'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label5: TLabel
      Left = 336
      Top = 5
      Width = 27
      Height = 14
      Caption = 'Bank'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label6: TLabel
      Left = 456
      Top = 5
      Width = 26
      Height = 14
      Caption = 'Prog'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object sbMoveUp1: TSpeedButton
      Left = 402
      Top = 2
      Width = 20
      Height = 20
      Flat = True
      Glyph.Data = {
        E2000000424DE200000000000000760000002800000012000000090000000100
        0400000000006C00000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFF000000FFFFFFFFFFFFFFFFFF000000CCCCCCCCC888888888000000FCCC
        CCCCFF8888888F000000FFCCCCCFFFF88888FF000000FFFCCCFFFFFF888FFF00
        0000FFFFCFFFFFFFF8FFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
        FFFFFF000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = sbMoveUp1Click
    end
    object sbMoveDown1: TSpeedButton
      Left = 423
      Top = 2
      Width = 20
      Height = 20
      Flat = True
      Glyph.Data = {
        E2000000424DE200000000000000760000002800000012000000090000000100
        0400000000006C00000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFCFFFFFFFF8FFFF000000FFFC
        CCFFFFFF888FFF000000FFCCCCCFFFF88888FF000000FCCCCCCCFF8888888F00
        0000CCCCCCCCC888888888000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
        FFFFFF000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = sbMoveDown1Click
    end
    object SpeedButton3: TSpeedButton
      Left = 522
      Top = 2
      Width = 20
      Height = 20
      Flat = True
      Glyph.Data = {
        E2000000424DE200000000000000760000002800000012000000090000000100
        0400000000006C00000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFF000000FFFFFFFFFFFFFFFFFF000000CCCCCCCCC888888888000000FCCC
        CCCCFF8888888F000000FFCCCCCFFFF88888FF000000FFFCCCFFFFFF888FFF00
        0000FFFFCFFFFFFFF8FFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
        FFFFFF000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 543
      Top = 2
      Width = 20
      Height = 20
      Flat = True
      Glyph.Data = {
        E2000000424DE200000000000000760000002800000012000000090000000100
        0400000000006C00000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFCFFFFFFFF8FFFF000000FFFC
        CCFFFFFF888FFF000000FFCCCCCFFFF88888FF000000FCCCCCCCFF8888888F00
        0000CCCCCCCCC888888888000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
        FFFFFF000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton4Click
    end
    object btnMute: TSpeedButton
      Left = 73
      Top = 3
      Width = 44
      Height = 20
      Hint = 'Mute on/off'
      AllowAllUp = True
      GroupIndex = 5
      Caption = 'Mute'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = btnMuteClick
    end
    object panelChannel: TPanel
      Left = 32
      Top = 3
      Width = 30
      Height = 19
      Cursor = crHandPoint
      Hint = 'Click to select MIDI channel'
      BevelOuter = bvNone
      Caption = '1'
      Color = clBlack
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnMouseDown = panelChannelMouseDown
      OnMouseUp = panelChannelMouseUp
    end
    object panelOutput: TPanel
      Left = 172
      Top = 3
      Width = 149
      Height = 19
      Cursor = crHandPoint
      Hint = 'Click to select MIDI output device'
      Alignment = taLeftJustify
      BevelOuter = bvNone
      Color = clBlack
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      Locked = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnMouseDown = panelOutputMouseDown
      OnMouseUp = panelOutputMouseUp
    end
    object TPanel
      Left = 368
      Top = 3
      Width = 30
      Height = 19
      Hint = 'Enter bank number'
      BevelOuter = bvNone
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      object editBank: TEditIncDec
        Left = 5
        Top = 3
        Width = 33
        Height = 21
        TabStop = False
        BorderStyle = bsNone
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = editBank.
        TabOrder = 0
        Text = '120'
        OnChange = editBankChange
        OnDblClick = editBankDblClick
        OnKeyDown = editBankKeyDown
        Min = 50
        Max = 250
      end
    end
    object TPanel
      Left = 488
      Top = 3
      Width = 30
      Height = 19
      Hint = 'Enter program number'
      BevelOuter = bvNone
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      object editProgram: TEditIncDec
        Left = 5
        Top = 3
        Width = 33
        Height = 21
        TabStop = False
        BorderStyle = bsNone
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = editProgram.
        TabOrder = 0
        Text = '120'
        OnChange = editProgramChange
        OnDblClick = editProgramDblClick
        OnKeyDown = editProgramKeyDown
        Min = 50
        Max = 250
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 144
    Top = 64
    object Edit2: TMenuItem
      Caption = '&Edit'
      GroupIndex = 1
      OnClick = Edit2Click
      object Undo1: TMenuItem
        Caption = '&Undo'
        ShortCut = 16474
        OnClick = Undo1Click
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object Selectall1: TMenuItem
        Caption = 'Select &all parts'
        ShortCut = 16449
        OnClick = Selectall1Click
      end
      object N16: TMenuItem
        Caption = '-'
      end
      object Copy1: TMenuItem
        Caption = '&Copy'
        Enabled = False
        ShortCut = 16451
        OnClick = Copy1Click
      end
      object Cut1: TMenuItem
        Caption = 'C&ut'
        Enabled = False
        OnClick = Cut1Click
      end
      object Paste1: TMenuItem
        Caption = '&Paste'
        Enabled = False
        OnClick = Paste1Click
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object Key1: TMenuItem
        Caption = '&Edit part'
        ShortCut = 16453
        OnClick = Key1Click
      end
    end
    object Track1: TMenuItem
      Caption = '&Track'
      GroupIndex = 1
      object Ch1: TMenuItem
        Caption = '&Ch'
      end
      object Device1: TMenuItem
        Caption = '&Output'
        OnClick = Device1Click
      end
      object Program2: TMenuItem
        Caption = '&Bank/program...'
        OnClick = Program2Click
      end
      object Name2: TMenuItem
        Caption = '&Rename...'
        OnClick = Name2Click
      end
      object Transpose4: TMenuItem
        Caption = '&Transpose input...'
        OnClick = Transpose4Click
      end
      object Mode1: TMenuItem
        Caption = 'Mo&de'
        Enabled = False
        Visible = False
        object Midi1: TMenuItem
          Caption = '&Midi'
          OnClick = Midi1Click
        end
        object Audio1: TMenuItem
          Caption = '&Audio'
          OnClick = Audio1Click
        end
      end
      object N18: TMenuItem
        Caption = '-'
        Enabled = False
      end
      object Mute4: TMenuItem
        Caption = '&Mute'
        ShortCut = 77
        OnClick = Mute4Click
      end
      object Solo2: TMenuItem
        Caption = '&Solo'
        ShortCut = 83
        OnClick = Solo2Click
      end
      object N19: TMenuItem
        Caption = '-'
      end
      object View1: TMenuItem
        Caption = '&View'
        object Trackname1: TMenuItem
          Caption = '&Track name'
          Checked = True
          GroupIndex = 1
          RadioItem = True
          OnClick = Trackname1Click
        end
        object GMinstrument1: TMenuItem
          Caption = '&GM instrument'
          GroupIndex = 1
          RadioItem = True
          OnClick = GMinstrument1Click
        end
      end
    end
    object Part1: TMenuItem
      Caption = '&Part'
      GroupIndex = 1
      OnClick = Part1Click
      object Insert1: TMenuItem
        Caption = '&Insert'
        ShortCut = 45
        OnClick = Insert1Click
      end
      object Delete1: TMenuItem
        Caption = '&Delete'
        ShortCut = 46
        OnClick = Delete1Click
      end
      object N17: TMenuItem
        Caption = '-'
      end
      object XRay1: TMenuItem
        Caption = '&X-Ray'
        ShortCut = 88
        OnClick = XRay1Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object Compose1: TMenuItem
        Caption = '&Compose'
        OnClick = Compose1Click
        object Notea1: TMenuItem
          Caption = '&Notes...'
          ShortCut = 16433
          OnClick = Notea1Click
        end
        object Controllers2: TMenuItem
          Caption = '&Controllers...'
          ShortCut = 16434
          OnClick = Controllers2Click
        end
        object AWENRPN1: TMenuItem
          Caption = '&AWE NRPN'
          ShortCut = 16435
          OnClick = AWENRPN1Click
        end
      end
      object Delete2: TMenuItem
        Caption = '&Delete'
        OnClick = Delete2Click
        object Aftertouch1: TMenuItem
          Caption = '&Aftertouch'
          Enabled = False
        end
        object AWENRPN3: TMenuItem
          Caption = '&AWE NRPN'
          OnClick = AWENRPN3Click
        end
        object Controllers1: TMenuItem
          Caption = '&Control change'
          OnClick = Controllers1Click
        end
        object Notes3: TMenuItem
          Caption = '&Notes'
          OnClick = Notes3Click
        end
        object Pitchbend2: TMenuItem
          Caption = '&Pitch bend'
          OnClick = Pitchbend2Click
        end
        object Programchange1: TMenuItem
          Caption = 'P&rogram change'
          OnClick = Programchange1Click
        end
        object Sysex1: TMenuItem
          Caption = '&Sysex'
          Enabled = False
        end
        object N11: TMenuItem
          Caption = '-'
        end
        object Doubles1: TMenuItem
          Caption = '&Double notes'
          OnClick = Doubles1Click
        end
      end
      object Echo1: TMenuItem
        Caption = '&Echo...'
        OnClick = Echo1Click
      end
      object Groove1: TMenuItem
        Caption = 'Grooves...'
        Enabled = False
        ShortCut = 8263
        OnClick = Groove1Click
      end
      object Legato1: TMenuItem
        Caption = '&Legato'
        OnClick = Legato1Click
      end
      object Length1: TMenuItem
        Caption = 'L&ength'
        OnClick = Length1Click
      end
      object Overlap1: TMenuItem
        Caption = 'Overlap'
        OnClick = Overlap1Click
      end
      object Quantize1: TMenuItem
        Caption = '&Quantize'
        ShortCut = 81
        OnClick = Quantize1Click
      end
      object Transpose1: TMenuItem
        Caption = '&Transpose...'
        ShortCut = 16468
        OnClick = Transpose1Click
      end
      object Velocity1: TMenuItem
        Caption = '&Velocity...'
        ShortCut = 86
        OnClick = Velocity1Click
      end
      object N12: TMenuItem
        Caption = '-'
      end
      object Append1: TMenuItem
        Caption = '&Append'
        ShortCut = 16459
        OnClick = Append1Click
      end
      object Mute2: TMenuItem
        Caption = '&Mute'
        ShortCut = 16461
        OnClick = Mute2Click
      end
      object Glue1: TMenuItem
        Caption = '&Glue'
        ShortCut = 16455
        OnClick = Glue1Click
      end
      object Rename1: TMenuItem
        Caption = '&Rename...'
        OnClick = Rename1Click
      end
    end
    object Sequence1: TMenuItem
      Caption = 'Se&quence'
      GroupIndex = 1
      OnClick = Sequence1Click
      object InsertArea1: TMenuItem
        Caption = '&Insert area'
        OnClick = InsertArea1Click
      end
      object Cutatselection1: TMenuItem
        Caption = '&Cut area'
        OnClick = Cutatselection1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Split1: TMenuItem
        Caption = '&Split selected parts'
        OnClick = Split1Click
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object Group1: TMenuItem
        Caption = '&Group'
        OnClick = Group1Click
      end
      object Ungroup1: TMenuItem
        Caption = '&Ungroup'
        OnClick = Ungroup1Click
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object Loopselection1: TMenuItem
        Caption = '&Loop selected parts'
        ShortCut = 16464
        OnClick = Loopselection1Click
      end
      object N24: TMenuItem
        Caption = '-'
        Visible = False
      end
      object Sysexpatches1: TMenuItem
        Caption = '&Sysex dumps'
        Enabled = False
        Visible = False
        OnClick = Sysexpatches1Click
      end
    end
    object Show1: TMenuItem
      Caption = '&Show'
      GroupIndex = 1
      OnClick = Show1Click
      object Toolbar1: TMenuItem
        Caption = 'T&oolbar'
        OnClick = Toolbar1Click
      end
      object Trackinfo1: TMenuItem
        Caption = 'Trac&k info'
        OnClick = Trackinfo1Click
      end
      object Tracks1: TMenuItem
        Caption = '&Tracks'
        ShortCut = 121
        OnClick = Tracks1Click
      end
      object N21: TMenuItem
        Caption = '-'
      end
      object Midifarder1: TMenuItem
        Caption = '&Midi faders'
        OnClick = Midifarder1Click
      end
      object AWEfaders1: TMenuItem
        Caption = '&AWE faders'
        OnClick = AWEfaders1Click
      end
      object XGfaders1: TMenuItem
        Caption = '&XG faders'
        Visible = False
        OnClick = XGfaders1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Transporer1: TMenuItem
        Caption = 'T&ransporter'
        ShortCut = 123
        OnClick = Transporer1Click
      end
      object N20: TMenuItem
        Caption = '-'
      end
      object Customize1: TMenuItem
        Caption = '&Customize...'
        OnClick = Customize1Click
      end
    end
  end
  object PopupTracks: TPopupMenu
    OnPopup = PopupTracksPopup
    Left = 144
    Top = 152
    object Midichannel1: TMenuItem
      Caption = 'Ch'
      OnClick = Midichannel1Click
    end
    object Ouputdevice1: TMenuItem
      Caption = 'Ouput'
      OnClick = Ouputdevice1Click
    end
    object Program1: TMenuItem
      Caption = 'Bank/program...'
      OnClick = Program1Click
    end
    object Name1: TMenuItem
      Caption = 'Rename...'
      OnClick = Name1Click
    end
    object Transpose2: TMenuItem
      Caption = 'Transpose input...'
      OnClick = Transpose2Click
    end
    object Mode2: TMenuItem
      Caption = 'Mode'
      Enabled = False
      Visible = False
      object Midi2: TMenuItem
        Caption = 'Midi'
        OnClick = Midi2Click
      end
      object Audio2: TMenuItem
        Caption = 'Audio'
        OnClick = Audio2Click
      end
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object Mute1: TMenuItem
      Caption = 'Mute'
      ShortCut = 77
      OnClick = Mute1Click
    end
    object Solo1: TMenuItem
      Caption = 'Solo'
      ShortCut = 83
      OnClick = Solo1Click
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object Hide1: TMenuItem
      Caption = 'Hide'
      OnClick = Hide1Click
    end
    object Showall1: TMenuItem
      Caption = 'Show all'
      OnClick = Showall1Click
    end
  end
  object PopupRes: TPopupMenu
    Left = 432
    Top = 64
    object N641: TMenuItem
      Caption = '64'
      OnClick = N641Click
    end
    object N321: TMenuItem
      Caption = '32'
      OnClick = N321Click
    end
    object N162: TMenuItem
      Caption = '16'
      OnClick = N162Click
    end
    object N42: TMenuItem
      Caption = '8'
      OnClick = N42Click
    end
    object N22: TMenuItem
      Caption = '4'
      OnClick = N22Click
    end
    object N23: TMenuItem
      Caption = '2'
      OnClick = N23Click
    end
    object N64T1: TMenuItem
      Break = mbBarBreak
      Caption = '64T'
      OnClick = N64T1Click
    end
    object N32T1: TMenuItem
      Caption = '32T'
      OnClick = N32T1Click
    end
    object N16T1: TMenuItem
      Caption = '16T'
      OnClick = N16T1Click
    end
    object N8T1: TMenuItem
      Caption = '8T'
      OnClick = N8T1Click
    end
    object N4T1: TMenuItem
      Caption = '4T'
      OnClick = N4T1Click
    end
    object N2T1: TMenuItem
      Caption = '2T'
      OnClick = N2T1Click
    end
  end
  object scrollTimer: TTimer
    Enabled = False
    Interval = 50
    OnTimer = scrollTimerTimer
    Left = 439
    Top = 198
  end
  object popupArrange: TPopupMenu
    OnPopup = popupArrangePopup
    Left = 359
    Top = 152
    object Undo2: TMenuItem
      Caption = 'Undo'
      OnClick = Undo2Click
    end
    object N15: TMenuItem
      Caption = '-'
    end
    object Edit1: TMenuItem
      Caption = 'Edit part'
      OnClick = Edit1Click
    end
    object N10: TMenuItem
      Caption = '-'
    end
    object Compose2: TMenuItem
      Caption = 'Compose'
      OnClick = Compose2Click
      object Notes1: TMenuItem
        Caption = 'Notes...'
        OnClick = Notes1Click
      end
      object Controllers3: TMenuItem
        Caption = 'Controllers...'
        OnClick = Controllers3Click
      end
      object AWENRPN2: TMenuItem
        Caption = '&AWE NRPN'
        OnClick = AWENRPN2Click
      end
    end
    object Delete3: TMenuItem
      Caption = 'Delete'
      OnClick = Delete3Click
      object Aftertouch2: TMenuItem
        Caption = 'Aftertouch'
        Enabled = False
      end
      object AWENRPN4: TMenuItem
        Caption = '&AWE NRPN'
        OnClick = AWENRPN4Click
      end
      object Controllers4: TMenuItem
        Caption = 'Control change'
        OnClick = Controllers4Click
      end
      object Notes2: TMenuItem
        Caption = 'Notes'
        OnClick = Notes2Click
      end
      object Pitchbend1: TMenuItem
        Caption = 'Pitch bend'
        OnClick = Pitchbend1Click
      end
      object Programchange2: TMenuItem
        Caption = 'Program change'
        OnClick = Programchange2Click
      end
      object Sysex2: TMenuItem
        Caption = 'Sysex'
        Enabled = False
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object Doublenotes1: TMenuItem
        Caption = 'Double notes'
        OnClick = Doublenotes1Click
      end
    end
    object Echo2: TMenuItem
      Caption = 'Echo...'
      OnClick = Echo2Click
    end
    object Grooves1: TMenuItem
      Caption = 'Grooves...'
      OnClick = Grooves1Click
    end
    object Legato2: TMenuItem
      Caption = 'Legato'
      OnClick = Legato2Click
    end
    object Length2: TMenuItem
      Caption = 'Length'
      OnClick = Length2Click
    end
    object Overlap2: TMenuItem
      Caption = 'Overlap'
      OnClick = Overlap2Click
    end
    object Quantize2: TMenuItem
      Caption = 'Quantize'
      OnClick = Quantize2Click
    end
    object Transpose3: TMenuItem
      Caption = 'Transpose...'
      OnClick = Transpose3Click
    end
    object Velocity2: TMenuItem
      Caption = 'Velocity...'
      OnClick = Velocity2Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object Append2: TMenuItem
      Caption = 'Append'
      OnClick = Append2Click
    end
    object Mute3: TMenuItem
      Caption = 'Mute'
      OnClick = Mute3Click
    end
    object Glue2: TMenuItem
      Caption = 'Glue'
      OnClick = Glue2Click
    end
    object Rename2: TMenuItem
      Caption = 'Rename...'
      OnClick = Rename2Click
    end
  end
  object PopupDevice: TPopupMenu
    OnPopup = PopupDevicePopup
    Left = 144
    Top = 184
  end
  object PopupCh: TPopupMenu
    Left = 144
    Top = 216
  end
  object ledTimer: TTimer
    Interval = 100
    OnTimer = ledTimerTimer
    Left = 178
    Top = 149
  end
  object PopupTempo: TPopupMenu
    Left = 328
    Top = 72
  end
end