object Form1: TForm1
  Left = 176
  Top = 170
  Width = 442
  Height = 294
  Caption = 'Form1'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 434
    Height = 33
    Align = alTop
    TabOrder = 0
    OnClick = Panel1Click
    object CompileBut: TButton
      Left = 4
      Top = 4
      Width = 75
      Height = 25
      Caption = 'Compile'
      TabOrder = 0
      OnClick = CompileButClick
    end
    object SpeedBar1: TSpeedBar
      Left = 1
      Top = 1
      Width = 432
      Height = 36
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      BtnOffsetHorz = 3
      BtnOffsetVert = 3
      TabOrder = 1
      InternalVer = 1
      object BitBtn1: TBitBtn
        Left = 4
        Top = 4
        Width = 75
        Height = 25
        Caption = 'Compile'
        TabOrder = 0
        OnClick = BitBtn1Click
      end
      object BitBtn2: TBitBtn
        Left = 88
        Top = 4
        Width = 75
        Height = 25
        Caption = 'Run'
        TabOrder = 1
        OnClick = BitBtn2Click
      end
      object Button1: TButton
        Left = 172
        Top = 4
        Width = 75
        Height = 25
        Caption = 'Load'
        TabOrder = 2
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 256
        Top = 4
        Width = 75
        Height = 25
        Caption = 'Save'
        TabOrder = 3
        OnClick = Button2Click
      end
      object SpeedbarSection1: TSpeedbarSection
        Caption = 'Untitled (0)'
      end
    end
  end
  object Memo1: TMemo
    Left = 0
    Top = 33
    Width = 246
    Height = 234
    Align = alClient
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      'Show('#39'Here you see program source'#39');'
      'Show:='#39'Press Load and select Sample.txt'#39';')
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 1
  end
  object RxSplitter1: TRxSplitter
    Left = 246
    Top = 33
    Width = 3
    Height = 234
    ControlFirst = Memo2
    ControlSecond = Memo1
    Align = alRight
  end
  object Memo2: TMemo
    Left = 249
    Top = 33
    Width = 185
    Height = 234
    Align = alRight
    Lines.Strings = (
      'This is window with '
      'VM-codes'
      'If U want to run'
      'a program'
      'press'
      'Compile and Run'
      'buttons...')
    ScrollBars = ssVertical
    TabOrder = 3
  end
  object aCode: TCode
    Size = 8000
    Left = 336
    Top = 136
  end
  object LangProc1: TLangProc
    LangName = 'Caption'
    LangOwner = RunTime.VM
    OnExec = LangProc1Exec
    Left = 137
    Top = 145
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'txt'
    FileEditStyle = fsEdit
    FileName = '*.txt'
    Filter = 'Text files (*.txt)|*.txt'
    Left = 160
    Top = 72
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'txt'
    FileEditStyle = fsEdit
    FileName = '*.txt'
    Filter = 'Text files (*.txt)|*.txt'
    Left = 200
    Top = 72
  end
end