object SmallCalc: TSmallCalc
  Left = 220
  Top = 146
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'SmallCalc'
  ClientHeight = 149
  ClientWidth = 125
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  KeyPreview = True
  PixelsPerInch = 96
  Position = poDefault
  OnCreate = StartUp
  OnKeyPress = FormKeyPress
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 125
    Height = 149
    BevelInner = bvLowered
    Color = clBlack
    TabOrder = 0
    object S7: TSpeedButton
      Left = 26
      Top = 50
      Width = 25
      Height = 25
      Caption = '7'
      Enabled = False
      Spacing = 2
      OnClick = AddValueofButton
    end
    object S8: TSpeedButton
      Left = 50
      Top = 50
      Width = 25
      Height = 25
      Caption = '8'
      Enabled = False
      OnClick = AddValueofButton
    end
    object S4: TSpeedButton
      Left = 26
      Top = 74
      Width = 25
      Height = 25
      Caption = '4'
      Enabled = False
      OnClick = AddValueofButton
    end
    object S5: TSpeedButton
      Left = 50
      Top = 74
      Width = 25
      Height = 25
      Caption = '5'
      Enabled = False
      OnClick = AddValueofButton
    end
    object S1: TSpeedButton
      Left = 26
      Top = 98
      Width = 25
      Height = 25
      Caption = '1'
      Enabled = False
      Spacing = 2
      OnClick = AddValueofButton
    end
    object S2: TSpeedButton
      Left = 50
      Top = 98
      Width = 25
      Height = 25
      Caption = '2'
      Enabled = False
      OnClick = AddValueofButton
    end
    object S0: TSpeedButton
      Left = 26
      Top = 122
      Width = 25
      Height = 25
      Caption = '0'
      Enabled = False
      OnClick = AddValueofButton
    end
    object DP: TSpeedButton
      Left = 50
      Top = 122
      Width = 25
      Height = 25
      Caption = '.'
      Enabled = False
      Font.Color = clBlack
      Font.Height = -21
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = AddValueofButton
    end
    object S9: TSpeedButton
      Left = 74
      Top = 50
      Width = 25
      Height = 25
      Caption = '9'
      Enabled = False
      Spacing = 2
      OnClick = AddValueofButton
    end
    object Plus: TSpeedButton
      Left = 98
      Top = 50
      Width = 25
      Height = 25
      Caption = '+'
      OnClick = ClickanOperation
    end
    object S6: TSpeedButton
      Left = 74
      Top = 74
      Width = 25
      Height = 25
      Caption = '6'
      Enabled = False
      OnClick = AddValueofButton
    end
    object Minus: TSpeedButton
      Left = 98
      Top = 74
      Width = 25
      Height = 25
      Caption = '-'
      Font.Color = clBlack
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = ClickanOperation
    end
    object S3: TSpeedButton
      Left = 74
      Top = 98
      Width = 25
      Height = 25
      Caption = '3'
      Enabled = False
      Spacing = 2
      OnClick = AddValueofButton
    end
    object Multiply: TSpeedButton
      Left = 98
      Top = 98
      Width = 25
      Height = 25
      Caption = 'x'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = ClickanOperation
    end
    object Equals: TSpeedButton
      Left = 74
      Top = 122
      Width = 25
      Height = 25
      Caption = '='
      Font.Color = clBlack
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = ClickanOperation
    end
    object Divide: TSpeedButton
      Left = 98
      Top = 122
      Width = 25
      Height = 25
      Caption = '/'
      OnClick = ClickanOperation
    end
    object Cancel: TSpeedButton
      Left = 2
      Top = 74
      Width = 25
      Height = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000000000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003333333333333333333300003333773333333333333300003339
        1173333397333333000033391117333911733333000033391111739111173333
        0000333391111711111733330000333339111111117333330000333333911111
        1733333300003333333111117333333300003333333911117333333300003333
        3391111173333333000033333911171117333333000033339111739111733333
        0000333391173339111733330000333339133333911173330000333333333333
        3919333300003333333333333333333300003333333333333333333300003333
        33333333333333330000}
      OnClick = CancelClick
    end
    object Clear: TSpeedButton
      Left = 2
      Top = 98
      Width = 25
      Height = 25
      Glyph.Data = {
        56070000424D5607000000000000360400002800000028000000140000000100
        0800000000002003000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
        A600000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
        0303030303030303030303030303030303030303030303030303030303030303
        0303030303030303030303030303030303030303030303030303030303030303
        0303030303030303030303030303030303030303030303030303030303030303
        030303030303030303030303030303030303FF030303FF030303030303030303
        0303030303030303030303030303030303030303030303030303FF0303FFFFFF
        0303FF0303030303030303030303030303030303030303030303030303030303
        0303FFFFFFFFFFFFFFFFFFFF03030303030303030303030303030303030303FF
        FFFFFF03030303030303FFFFFFFFFFFFFFFFF801010103030303030303030303
        030303030303F8F8F8F8FFFF030303030303FFFFFFFFFFFFFFF8F9FDFD050103
        03030303030303030303030303F8FF0303F8F8FFFF0303030303FFFFFFFFFFFF
        FFF9FDF9FDFD050103030303030303030303030303F8FF030303F8F8FFFF0303
        0303FFFFFFFFFFFF03FDF9FFF9FDFD0500030303030303030303030303F8FF03
        030303F8F8FFFF030303FFFF03FFFFFF03F9FDFFFDF9FD000600030303030303
        0303030303F803FF030303F8F8F8FFFF0303FF030303FF030303F9FDFFFD0002
        0406000303030303030303030303F803FF03F8F8F8F8F8FFFF03FF0303030303
        030303F9FD00FA02020406000303030303030303030303F803F803F8F8F8F8F8
        FFFF0303030303030303030300FAFBFA020200F8000303030303030303030303
        F803FF03F8F8F8F8F8FF030303030303030303030300FAFBFA0004F8F8000303
        030303030303030303F803FF03F8F8F8F8F803030303030303030303030300FA
        0007FB04F8F8030303030303030303030303F803F80303F8F8F8030303030303
        030303030303030007FFFBFB04F803030303030303030303030303F803FF0303
        F8F8030303030303030303030303030300FFFFFBFB0403030303030303030303
        03030303F803FF0303F803030303030303030303030303030300FFFFFBFB0303
        03030303030303030303030303F803FF03030303030303030303030303030303
        030300FFFFFB03030303030303030303030303030303F8030303}
      NumGlyphs = 2
      OnClick = ClearClick
    end
    object Display: TLabel
      Left = 107
      Top = 6
      Width = 9
      Height = 16
      Alignment = taRightJustify
      Caption = '0'
      Color = clBlack
      DragMode = dmAutomatic
      Font.Color = clLime
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object OK: TSpeedButton
      Left = 2
      Top = 50
      Width = 25
      Height = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000000000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003333333333333333333300003333333333333333333300003333
        3344333333333333000033333422433333333333000033334222243333333333
        0000333422222243333333330000334222A2222433333333000033222A3A2224
        33333333000033A2A333A222433333330000333A33333A222433333300003333
        333333A222433333000033333333333A222433330000333333333333A2224333
        00003333333333333A222433000033333333333333A224330000333333333333
        333A223300003333333333333333A33300003333333333333333333300003333
        33333333333333330000}
      OnClick = OKClick
    end
    object MemoryAdd: TSpeedButton
      Left = 26
      Top = 26
      Width = 25
      Height = 25
      Caption = 'M+'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = ClickanOperation
    end
    object MemorySubtract: TSpeedButton
      Left = 50
      Top = 26
      Width = 25
      Height = 25
      Caption = 'M-'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = ClickanOperation
    end
    object MemoryRead: TSpeedButton
      Left = 74
      Top = 26
      Width = 25
      Height = 25
      Caption = 'MR'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = MemoryReadClick
    end
    object MemoryClear: TSpeedButton
      Left = 98
      Top = 26
      Width = 25
      Height = 25
      Caption = 'MC'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = MemoryClearClick
    end
    object MemLabel: TLabel
      Left = 2
      Top = 2
      Width = 6
      Height = 8
      Caption = 'M'
      Color = clBlack
      Font.Color = clYellow
      Font.Height = -7
      Font.Name = 'Small Fonts'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object OpLabel: TLabel
      Left = 115
      Top = 9
      Width = 6
      Height = 16
      Caption = '+'
      Color = clBlack
      Font.Color = clLime
      Font.Height = -13
      Font.Name = 'MS Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object SignChange: TSpeedButton
      Left = 2
      Top = 26
      Width = 25
      Height = 25
      Caption = '+/-'
      OnClick = SignChangeClick
    end
    object SpinButton1: TSpinButton
      Left = 2
      Top = 122
      Width = 25
      Height = 25
      DownGlyph.Data = {
        A6000000424DA600000000000000760000002800000009000000060000000100
        0400000000003000000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
        0000333303333000000033300033300000003300000330000000300000003000
        00003333333330000000}
      TabOrder = 0
      UpGlyph.Data = {
        A6000000424DA600000000000000760000002800000009000000060000000100
        0400000000003000000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
        0000300000003000000033000003300000003330003330000000333303333000
        00003333333330000000}
      OnDownClick = SpinButton1DownClick
      OnUpClick = SpinButton1UpClick
    end
  end
end