object Form1: TForm1
  Left = 233
  Top = 111
  Width = 621
  Height = 623
  Caption = 'Form1'
  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 = 40
    Top = 32
    Width = 113
    Height = 25
    Caption = 'Run script'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Memo1: TMemo
    Left = 200
    Top = 8
    Width = 401
    Height = 569
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    Lines.Strings = (
      'uses'
      '  Classes;'
      'type'
      '  TMyForm = class(TForm)'
      '   private'
      '     Button1: TButton;   '
      '   public'
      '     constructor Create(AOwner: TComponent);'
      '     procedure Button1Click(Sender: TObject);'
      '  end;  '
      ''
      'constructor TMyForm.Create(AOwner: TComponent);'
      'begin'
      '  inherited;'
      '  Top := 100;'
      '  Left := 200;'
      '  Caption := '#39'Script-defined form MyForm'#39';'
      '  Button1 := TButton.Create(Self);'
      '  Button1.Parent := Self;'
      '  Button1.Top := 50;'
      '  Button1.Left := 50;'
      '  Button1.Caption := '#39'Click me'#39';'
      '  Button1.OnClick := Button1Click;'
      'end;'
      ''
      'procedure TMyForm.Button1Click(Sender: TObject);'
      'begin'
      '  ShowMessage('#39'Hello!'#39');'
      '  ShowMessage('#39'Sender: '#39' + Sender.ClassName);'
      'end;'
      ''
      'var'
      '   F: TMyForm;'
      'begin'
      '   F := TMyForm.Create(nil);'
      '   try'
      '     F.ShowModal;'
      '  finally'
      '      F.Free;'
      '  end;'
      'end.')
    ParentFont = False
    TabOrder = 1
  end
  object PaxCompiler1: TPaxCompiler
    Alignment = 1
    DebugMode = False
    Left = 40
    Top = 80
  end
  object PaxPascalLanguage1: TPaxPascalLanguage
    CompleteBooleanEval = False
    UnitLookup = True
    Left = 80
    Top = 80
  end
  object PaxProgram1: TPaxProgram
    Console = False
    OnUnhandledException = PaxProgram1UnhandledException
    Left = 120
    Top = 80
  end
end
