object Main: TMain
  Left = 109
  Top = 21
  Width = 640
  Height = 555
  HorzScrollBar.Tracking = True
  HorzScrollBar.Visible = False
  VertScrollBar.Tracking = True
  Caption = 'Mandrak'#39's Diablo Trainer & Item Editor'
  Color = clSilver
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object GroupNames: TGroupBox
    Left = 0
    Top = 0
    Width = 185
    Height = 109
    Caption = 'Characters in the Game :'
    Color = clSilver
    Font.Color = clTeal
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 0
    object SelChar0: TRadioButton
      Left = 20
      Top = 20
      Width = 160
      Height = 17
      Caption = 'no character'
      Enabled = False
      TabOrder = 0
      OnClick = SelChar0Click
    end
    object SelChar1: TRadioButton
      Left = 20
      Top = 36
      Width = 160
      Height = 17
      Caption = 'no character'
      Enabled = False
      TabOrder = 1
      OnClick = SelChar1Click
    end
    object SelChar2: TRadioButton
      Left = 20
      Top = 52
      Width = 160
      Height = 17
      Caption = 'no character'
      Enabled = False
      TabOrder = 2
      OnClick = SelChar2Click
    end
    object SelChar3: TRadioButton
      Left = 20
      Top = 68
      Width = 160
      Height = 17
      Caption = 'no character'
      Enabled = False
      TabOrder = 3
      OnClick = SelChar3Click
    end
    object FSlotRead0: TCheckBox
      Left = 4
      Top = 20
      Width = 13
      Height = 17
      Enabled = False
      TabOrder = 4
    end
    object FSlotRead1: TCheckBox
      Left = 4
      Top = 36
      Width = 13
      Height = 17
      Enabled = False
      TabOrder = 5
    end
    object FSlotRead2: TCheckBox
      Left = 4
      Top = 52
      Width = 13
      Height = 17
      Enabled = False
      TabOrder = 6
    end
    object FSlotRead3: TCheckBox
      Left = 4
      Top = 68
      Width = 13
      Height = 17
      Enabled = False
      TabOrder = 7
    end
    object FSlotRead4: TCheckBox
      Left = 4
      Top = 90
      Width = 13
      Height = 17
      Caption = 'FSlotRead4'
      Enabled = False
      TabOrder = 8
    end
    object SelChar4: TRadioButton
      Left = 20
      Top = 90
      Width = 160
      Height = 17
      Caption = 'File Buffer'
      Checked = True
      TabOrder = 9
      TabStop = True
      OnClick = SelChar4Click
    end
  end
  object CharStatus: TGroupBox
    Left = 0
    Top = 111
    Width = 321
    Height = 365
    Caption = 'Currently Selected Character Status :'
    Color = clSilver
    Ctl3D = True
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 1
    object ImgStats: TImage
      Left = 0
      Top = 14
      Width = 319
      Height = 351
      ParentShowHint = False
      ShowHint = False
    end
    object CharLevel: TLabel
      Left = 62
      Top = 70
      Width = 47
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object CharName: TLabel
      Left = 20
      Top = 32
      Width = 137
      Height = 17
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object CharClass: TLabel
      Left = 165
      Top = 32
      Width = 138
      Height = 17
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object ExpPoints: TLabel
      Left = 213
      Top = 70
      Width = 90
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object NextExpLev: TLabel
      Left = 213
      Top = 98
      Width = 90
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object TotalGold: TLabel
      Left = 213
      Top = 147
      Width = 90
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object StrengthBase: TLabel
      Left = 88
      Top = 155
      Width = 45
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object StrengthNow: TLabel
      Left = 136
      Top = 155
      Width = 45
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object MagicBase: TLabel
      Left = 88
      Top = 183
      Width = 45
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object MagicNow: TLabel
      Left = 136
      Top = 183
      Width = 45
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object DextBase: TLabel
      Left = 88
      Top = 211
      Width = 45
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object DextNow: TLabel
      Left = 136
      Top = 211
      Width = 45
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object VitalBase: TLabel
      Left = 88
      Top = 239
      Width = 45
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object VitalNow: TLabel
      Left = 136
      Top = 239
      Width = 45
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object DistribPoints: TLabel
      Left = 88
      Top = 267
      Width = 45
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object LifeMax: TLabel
      Left = 86
      Top = 304
      Width = 49
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object LifeNow: TLabel
      Left = 136
      Top = 304
      Width = 49
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object ManaMax: TLabel
      Left = 86
      Top = 332
      Width = 49
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object ManaNow: TLabel
      Left = 136
      Top = 332
      Width = 49
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object ArmorClass: TLabel
      Left = 248
      Top = 183
      Width = 63
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object ToHit: TLabel
      Left = 248
      Top = 211
      Width = 63
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object Damage: TLabel
      Left = 248
      Top = 239
      Width = 63
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object ResMagic: TLabel
      Left = 255
      Top = 276
      Width = 47
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object ResFire: TLabel
      Left = 255
      Top = 304
      Width = 47
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
    object ResLgtning: TLabel
      Left = 255
      Top = 332
      Width = 47
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Color = clTeal
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowAccelChar = False
      ShowHint = False
      Transparent = True
    end
  end
  object BtnRead: TButton
    Left = 193
    Top = 5
    Width = 104
    Height = 20
    Caption = '<- Read To Slot'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = BtnReadClick
  end
  object BtnWrite: TButton
    Left = 193
    Top = 29
    Width = 104
    Height = 20
    Caption = '->Write To Mem'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = BtnWriteClick
  end
  object BtnCopy: TButton
    Left = 193
    Top = 53
    Width = 104
    Height = 20
    Caption = 'Copy To Buffer'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 4
    OnClick = BtnCopyClick
  end
  object BtnCopyFrom: TButton
    Left = 193
    Top = 77
    Width = 104
    Height = 20
    Caption = 'Copy From Buffer'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 5
    OnClick = BtnCopyFromClick
  end
  object GBBodyInvBelt: TGroupBox
    Left = 313
    Top = 111
    Width = 318
    Height = 398
    Caption = 'Items :'
    Color = clSilver
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 6
    object Image1: TImage
      Left = 0
      Top = 14
      Width = 316
      Height = 350
      Hint = 'Right Click to Import/Export/Edit/Copy/Paste Item'
      ParentShowHint = False
      ShowHint = True
      OnMouseMove = Image1MouseMove
      OnMouseUp = Image1MouseUp
    end
    object Image2: TImage
      Left = 43
      Top = 364
      Width = 231
      Height = 32
      Hint = 'Right Click to Import/Export/Edit/Copy/Paste Item'
      ParentShowHint = False
      ShowHint = True
      OnMouseMove = Image2MouseMove
      OnMouseUp = Image2MouseUp
    end
  end
  object MemoIdentification: TMemo
    Left = 316
    Top = 2
    Width = 313
    Height = 111
    Alignment = taCenter
    Color = clBlack
    Ctl3D = True
    Font.Color = clAqua
    Font.Height = -11
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    HideSelection = False
    ParentCtl3D = False
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ShowHint = False
    TabOrder = 7
    WantReturns = False
  end
  object BtnHexDump: TButton
    Left = 127
    Top = 481
    Width = 75
    Height = 25
    Caption = 'Hex Dump'
    TabOrder = 8
    OnClick = BtnHexDumpClick
  end
  object MainMenu1: TMainMenu
    Left = 3
    Top = 480
    object MnuFile: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object MnuRefresh: TMenuItem
        Caption = '&Refresh'
        ShortCut = 0
        OnClick = MnuRefreshClick
      end
      object MnuSaveas: TMenuItem
        Caption = '&Save as'
        ShortCut = 0
        OnClick = MnuSaveasClick
      end
      object MnuLoadFrom: TMenuItem
        Caption = '&Load From'
        ShortCut = 0
        OnClick = MnuLoadFromClick
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MnuExit: TMenuItem
        Caption = '&Exit'
        ShortCut = 0
        OnClick = MnuExitClick
      end
    end
    object MnuCheat: TMenuItem
      Caption = '&Cheat'
      ShortCut = 0
      object MnuPumpUpLife: TMenuItem
        Caption = 'Pump Up &Life'
        ShortCut = 0
        OnClick = MnuPumpUpLifeClick
      end
      object MnuPumpUpMana: TMenuItem
        Caption = 'Pump Up &Mana'
        ShortCut = 0
        OnClick = MnuPumpUpManaClick
      end
      object MnuIdentifyAll: TMenuItem
        Caption = '&Identify All'
        ShortCut = 0
        OnClick = MnuIdentifyAllClick
      end
      object MnuRepairAll: TMenuItem
        Caption = '&Repair All'
        ShortCut = 0
        OnClick = MnuRepairAllClick
      end
      object MnuRechargeStaves: TMenuItem
        Caption = 'Recharge Sta&ves'
        ShortCut = 0
        OnClick = MnuRechargeStavesClick
      end
      object MnuPumpGold: TMenuItem
        Caption = 'Pump Up &Gold'
        ShortCut = 0
        OnClick = MnuPumpGoldClick
      end
      object MnuPumpUpExpPoints: TMenuItem
        Caption = 'Pump Up &Exp Points'
        ShortCut = 0
        OnClick = MnuPumpUpExpPointsClick
      end
      object MnuSpells: TMenuItem
        Caption = '&Spells'
        ShortCut = 0
        object MnuFireBolt: TMenuItem
          Caption = 'FireBolt'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuHealing: TMenuItem
          Caption = 'Healing'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuLightning: TMenuItem
          Caption = 'Lightning'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuFlash: TMenuItem
          Caption = 'Flash'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuIdentify: TMenuItem
          Caption = 'Identify'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuFireWall: TMenuItem
          Caption = 'FireWall'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuTownPortal: TMenuItem
          Caption = 'TownPortal'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuStoneCurse: TMenuItem
          Caption = 'StoneCurse'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuInfraVision: TMenuItem
          Caption = 'InfraVision'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuPhasing: TMenuItem
          Caption = 'Phasing'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuManaShield: TMenuItem
          Break = mbBarBreak
          Caption = 'ManaShield'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuFireBall: TMenuItem
          Caption = 'FireBall'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuGuardian: TMenuItem
          Caption = 'Guardian'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuChainLightning: TMenuItem
          Caption = 'ChainLightning'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuFlameWave: TMenuItem
          Caption = 'FlameWave'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuDoomSerpents: TMenuItem
          Caption = 'DoomSerpents'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuBloodRitual: TMenuItem
          Caption = 'BloodRitual'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuNova: TMenuItem
          Caption = 'Nova'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuInvisibility: TMenuItem
          Caption = 'Invisibility'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuInferno: TMenuItem
          Caption = 'Inferno'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuGolem: TMenuItem
          Break = mbBarBreak
          Caption = 'Golem'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuBloodBoil: TMenuItem
          Caption = 'BloodBoil'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuTeleport: TMenuItem
          Caption = 'Teleport'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuApocalypse: TMenuItem
          Caption = 'Apocalypse'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuEtherealize: TMenuItem
          Caption = 'Etherealize'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuItemRepair: TMenuItem
          Caption = 'ItemRepair'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuStaffRecharge: TMenuItem
          Caption = 'StaffRecharge'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuTrapDisarm: TMenuItem
          Caption = 'TrapDisarm'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuElemental: TMenuItem
          Caption = 'Elemental'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuChargedBolt: TMenuItem
          Caption = 'ChargedBolt'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuHolyBolt: TMenuItem
          Break = mbBarBreak
          Caption = 'HolyBolt'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuResurect: TMenuItem
          Caption = 'Resurect'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuTelekinesis: TMenuItem
          Caption = 'Telekinesis'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuHealOther: TMenuItem
          Caption = 'HealOther'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuBloodStar: TMenuItem
          Caption = 'BloodStar'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuBoneSpirit: TMenuItem
          Caption = 'BoneSpirit'
          ShortCut = 0
          OnClick = CheatSpell
        end
        object MnuGiveAllSpells: TMenuItem
          Caption = 'Give All Spells'
          ShortCut = 0
          OnClick = MnuGiveAllSpellsClick
        end
      end
      object MnuLevelUpDistributionQuota: TMenuItem
        Caption = 'Level Up &Distribution Quota'
        ShortCut = 0
        OnClick = MnuLevelUpDistributionQuotaClick
      end
      object MnuPumpUpLevelPoints: TMenuItem
        Caption = 'Pump Up Your &Level'
        ShortCut = 0
        OnClick = MnuPumpUpLevelPointsClick
      end
    end
    object MnuHelp: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      OnClick = MnuHelpClick
    end
    object MnuDiabVer: TMenuItem
      Caption = 'Diablo Vx.xx'
      ShortCut = 0
    end
  end
  object DlgOpen: TOpenDialog
    DefaultExt = 'MDF'
    FileEditStyle = fsEdit
    Filter = 'Mandrak Dump File|*.MDF|Mandrak Item dump File|*.MIF'
    InitialDir = '.'
    Title = 'Load a Diablo Dump File'
    Left = 65
    Top = 480
  end
  object DlgSave: TSaveDialog
    DefaultExt = 'MDF'
    FileEditStyle = fsEdit
    Filter = 'Mandrak Dump File|*.MDF|Mandrak Item dump File|*.MIF'
    InitialDir = '.'
    Title = 'Save a Diablo Dump File'
    Left = 97
    Top = 480
  end
  object PMnuItem: TPopupMenu
    Left = 34
    Top = 480
    object PMnuImportItem: TMenuItem
      Caption = '&Import Item'
      ShortCut = 0
      OnClick = PMnuImportItemClick
    end
    object PMnuExportItem: TMenuItem
      Caption = 'E&xport Item'
      ShortCut = 0
      OnClick = PMnuExportItemClick
    end
    object PMnuEditItem: TMenuItem
      Caption = '&Edit Item'
      ShortCut = 0
      OnClick = PMnuEditItemClick
    end
    object PMnuCopy: TMenuItem
      Caption = '&Copy'
      ShortCut = 0
      OnClick = PMnuCopyClick
    end
    object PMnuPaste: TMenuItem
      Caption = '&Paste'
      Enabled = False
      ShortCut = 0
      OnClick = PMnuPasteClick
    end
  end
end