object Form1: TForm1
  Left = 192
  Top = 114
  Width = 696
  Height = 597
  Caption = 'Run-time error handling'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 24
    Top = 16
    Width = 161
    Height = 25
    Caption = 'Compile and Run'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Memo1: TMemo
    Left = 200
    Top = 16
    Width = 481
    Height = 441
    Lines.Strings = (
      'uses'
      '  SysUtils;'
      ''
      'procedure ErrorProc;'
      'var'
      '  I: Integer;'
      'begin'
      '  I := 0;'
      '  I := I div I;'
      'end;'
      ''
      'procedure TestFinally;'
      'var'
      '  S: String;'
      '  I: Integer;'
      'begin'
      '  S := '#39'abc'#39';'
      '  try'
      '    ErrorProc;'
      '  finally'
      '    writeln(S);'
      '  end;'
      '  writeln('#39'not executed'#39');'
      'end;'
      ''
      'begin'
      '  try'
      '    TestFinally;'
      '  except'
      '    writeln('#39'ok'#39');'
      '  end;'
      'end.')
    TabOrder = 1
  end
  object Memo2: TMemo
    Left = 200
    Top = 464
    Width = 481
    Height = 89
    TabOrder = 2
  end
  object PaxCompiler1: TPaxCompiler
    DebugMode = False
    Left = 64
    Top = 112
  end
  object PaxPascalLanguage1: TPaxPascalLanguage
    Left = 104
    Top = 112
  end
  object PaxProgram1: TPaxProgram
    OnException = PaxProgram1Exception
    Left = 80
    Top = 152
  end
end
