object SCTestBed: TSCTestBed
  Left = 315
  Top = 153
  BorderStyle = bsDialog
  Caption = 'TStringClass test bed demo'
  ClientHeight = 399
  ClientWidth = 605
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  TextHeight = 13
  object FuncGb: TGroupBox
    Left = 8
    Top = 8
    Width = 585
    Height = 137
    Caption = ' &Function List '
    TabOrder = 0
    object Label4: TLabel
      Left = 352
      Top = 24
      Width = 150
      Height = 13
      Caption = 'APChar : PChar = '#39'PChar string'#39';'
    end
    object Label2: TLabel
      Left = 352
      Top = 48
      Width = 203
      Height = 13
      Caption = 'APath : STRING = '#39'c:\windows\system.ini'#39';'
    end
    object Label3: TLabel
      Left = 352
      Top = 72
      Width = 149
      Height = 13
      Caption = 'AStr : STRING = '#39'Pascal string'#39';'
    end
    object FuncLb: TListBox
      Left = 16
      Top = 24
      Width = 305
      Height = 97
      ItemHeight = 13
      Sorted = True
      TabOrder = 0
      OnClick = FuncLbClick
    end
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 152
    Width = 585
    Height = 241
    Caption = ' Test Results '
    TabOrder = 1
  end
end