object Form1: TForm1
  Left = 200
  Top = 99
  AutoScroll = False
  Caption = 'My Exception Program'
  ClientHeight = 172
  ClientWidth = 365
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 16
    Top = 8
    Width = 201
    Height = 16
    Caption = 'Enter the passed tens of occur:'
  end
  object ERead: TBitBtn
    Left = 72
    Top = 88
    Width = 217
    Height = 33
    Caption = 'Raise EReadError'
    TabOrder = 0
    OnClick = RaiseEReadClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
      33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
      993337777F777F3377F3393999707333993337F77737333337FF993399933333
      399377F3777FF333377F993339903333399377F33737FF33377F993333707333
      399377F333377FF3377F993333101933399377F333777FFF377F993333000993
      399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
      99333773FF777F777733339993707339933333773FF7FFF77333333999999999
      3333333777333777333333333999993333333333377777333333}
    NumGlyphs = 2
  end
  object EReadAddr: TBitBtn
    Left = 72
    Top = 128
    Width = 217
    Height = 33
    Caption = 'Raise ERead + Address'
    TabOrder = 1
    OnClick = EReadAddrClick
    Glyph.Data = {
      F8000000424DF800000000000000760000002800000010000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555000555
      55555555008880055555555088CCC880555555508C888C8055555508CCCCCCC8
      05555508CECCCCC805555508CEECCCC8055555508C444C805555555088FFF880
      5555555508FFF80555555555508F805555555555508F805555555555508F8055
      55555555508F80555555555508888805555555555000005555550000}
  end
  object DelphiRaise: TBitBtn
    Left = 72
    Top = 48
    Width = 217
    Height = 33
    Caption = 'Raise Delphi Exception'
    TabOrder = 2
    OnClick = DelphiRaiseClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
      3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
      33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
      33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
      333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
      03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
      33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
      0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
      3333333337FFF7F33333333330000033333333333777773333330000}
    NumGlyphs = 2
  end
  object Edit1: TEdit
    Left = 232
    Top = 8
    Width = 121
    Height = 24
    TabOrder = 3
    Text = 'occured'
  end
end