object CharInput: TCharInput
  Left = 0
  Height = 1
  Hint = 'CHARACTER INPUT'
  Top = 0
  Width = 120
  HelpContext = 135
  BorderIcons = []
  Caption = 'Character Input'
  ClientHeight = 1
  ClientWidth = 120
  Color = clNone
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  ParentFont = True
  ShowHint = True
  LCLVersion = '1.6.0.4'
  object Label1: TLabel
    Left = 0
    Height = 1
    Top = 0
    Width = 120
    Align = alClient
    ParentColor = False
    Visible = False
  end
end
