object Core: TCore
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  OldCreateOrder = False
  Height = 543
  HorizontalOffset = 524
  VerticalOffset = 471
  Width = 796
  PPI = 144
  object ActionList1: TActionList
    Images = ImageList1
    Left = 53
    Top = 48
    object AExit: TAction
      Caption = 'Exit'
      OnExecute = AExitExecute
    end
    object AViewMemory: TAction
      Category = 'View'
      Caption = 'Memory'
      ShortCut = 113
      OnExecute = AViewMemoryExecute
    end
    object AViewDissssembler: TAction
      Category = 'View'
      Caption = 'Disassembler'
      ShortCut = 114
      OnExecute = AViewDissssemblerExecute
    end
    object AStepIn: TAction
      Category = 'Debug'
      Caption = 'Step in'
      ShortCut = 118
      OnExecute = AStepInExecute
    end
    object AStepOver: TAction
      Category = 'Debug'
      Caption = 'Step over'
      ShortCut = 119
      OnExecute = AStepOverExecute
    end
    object ARunToCursor: TAction
      Category = 'Debug'
      Caption = 'Run to cursor'
      ShortCut = 115
      OnExecute = ARunToCursorExecute
    end
    object APause: TAction
      Category = 'Debug'
      Caption = 'Pause'
      ShortCut = 16504
      OnExecute = APauseExecute
    end
    object ARun: TAction
      Category = 'Debug'
      Caption = 'Run'
      ShortCut = 120
      OnExecute = ARunExecute
    end
    object AStepOut: TAction
      Category = 'Debug'
      Caption = 'Step out'
      ShortCut = 8311
      OnExecute = AStepOutExecute
    end
    object AStop: TAction
      Category = 'Debug'
      Caption = 'Stop'
      ShortCut = 8312
      OnExecute = AStopExecute
    end
    object AViewCpu: TAction
      Category = 'View'
      Caption = 'CPU'
      ShortCut = 116
      OnExecute = AViewCpuExecute
    end
    object AViewScreen: TAction
      Category = 'View'
      Caption = 'Screen'
      OnExecute = AViewScreenExecute
    end
    object AReset: TAction
      Category = 'Debug'
      Caption = 'Reset'
      OnExecute = AResetExecute
    end
    object AGoToAddress: TAction
      Category = 'Edit'
      Caption = 'Go to address'
      ShortCut = 16455
      OnExecute = AGoToAddressExecute
    end
    object AViewMessages: TAction
      Category = 'View'
      Caption = 'Messages'
      OnExecute = AViewMessagesExecute
    end
    object AInstructionSetGen: TAction
      Category = 'Tools'
      Caption = 'Generate instruction set'
      OnExecute = AInstructionSetGenExecute
    end
    object AViewCallStack: TAction
      Category = 'View'
      Caption = 'Call stack'
      OnExecute = AViewCallStackExecute
    end
  end
  object ImageList1: TImageList
    Left = 192
    Top = 48
  end
  object TimerUpdate: TTimer
    Interval = 50
    OnTimer = TimerUpdateTimer
    Left = 328
    Top = 50
  end
end