object Form4: TForm4
  Left = 0
  Top = 0
  Caption = 'Arith'
  ClientHeight = 639
  ClientWidth = 562
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 562
    Height = 639
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Calc'
      object Label1: TLabel
        Left = 3
        Top = 17
        Width = 52
        Height = 13
        Caption = 'Expression'
      end
      object Label2: TLabel
        Left = 3
        Top = 194
        Width = 43
        Height = 13
        Caption = 'Variables'
      end
      object Label3: TLabel
        Left = 3
        Top = 553
        Width = 30
        Height = 13
        Caption = 'Result'
      end
      object Label4: TLabel
        Left = 3
        Top = 98
        Width = 100
        Height = 13
        Caption = 'Result variable name'
      end
      object edtExpression: TEdit
        Left = 3
        Top = 40
        Width = 534
        Height = 21
        TabOrder = 0
        OnChange = edtExpressionChange
      end
      object btnParse: TButton
        Left = 3
        Top = 67
        Width = 94
        Height = 25
        Caption = 'Parse'
        TabOrder = 1
        OnClick = btnParseClick
      end
      object ValueListEditor1: TValueListEditor
        Left = 3
        Top = 213
        Width = 534
        Height = 300
        TabOrder = 4
        TitleCaptions.Strings = (
          'Variable'
          'Value')
        ColWidths = (
          77
          451)
      end
      object btnEvaluate: TButton
        Left = 3
        Top = 519
        Width = 94
        Height = 25
        Caption = 'Evaluate'
        Enabled = False
        TabOrder = 5
        OnClick = btnEvaluateClick
      end
      object edtResult: TEdit
        Left = 3
        Top = 576
        Width = 534
        Height = 21
        ReadOnly = True
        TabOrder = 7
      end
      object cbFormat: TComboBox
        Left = 352
        Top = 519
        Width = 185
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 8
        OnChange = cbFormatChange
      end
      object btnClearVars: TButton
        Left = 103
        Top = 182
        Width = 94
        Height = 25
        Caption = 'Clear Variables'
        TabOrder = 3
        OnClick = btnClearVarsClick
      end
      object edtResultVar: TEdit
        Left = 3
        Top = 117
        Width = 534
        Height = 21
        TabOrder = 2
      end
      object btnCompare: TButton
        Left = 103
        Top = 519
        Width = 94
        Height = 25
        Caption = 'Compare'
        Enabled = False
        TabOrder = 6
        OnClick = btnCompareClick
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Log'
      ImageIndex = 2
      ExplicitLeft = 0
      ExplicitTop = 0
      ExplicitWidth = 0
      ExplicitHeight = 0
      object memLog: TMemo
        Left = 0
        Top = 0
        Width = 554
        Height = 611
        Align = alClient
        TabOrder = 0
        ExplicitHeight = 521
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Help'
      ImageIndex = 1
      object memHelp: TMemo
        Left = 0
        Top = 0
        Width = 554
        Height = 611
        Align = alClient
        Lines.Strings = (
          'memHelp')
        TabOrder = 0
      end
    end
  end
end
