object BaseComObjectExpert: TBaseComObjectExpert
  Left = 238
  Top = 330
  ActiveControl = NewClassName
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'COM Object Wizard'
  ClientHeight = 159
  ClientWidth = 365
  Color = clBtnFace
  ParentFont = True
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 353
    Height = 113
    Shape = bsFrame
  end
  object LblClassName: TLabel
    Left = 18
    Top = 22
    Width = 59
    Height = 13
    Caption = '&Class Name:'
    FocusControl = NewClassName
  end
  object Lblinstancing: TLabel
    Left = 18
    Top = 55
    Width = 52
    Height = 13
    Caption = '&Instancing:'
    FocusControl = Instancing
  end
  object LblThread: TLabel
    Left = 18
    Top = 87
    Width = 83
    Height = 13
    Caption = '&Threading Model:'
    FocusControl = ThreadModel
  end
  object NewClassName: TEdit
    Left = 112
    Top = 18
    Width = 241
    Height = 21
    TabOrder = 0
  end
  object OKButton: TButton
    Left = 128
    Top = 128
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 3
    OnClick = OKButtonClick
  end
  object CancelButton: TButton
    Left = 207
    Top = 128
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 4
  end
  object HelpButton: TButton
    Left = 287
    Top = 128
    Width = 75
    Height = 25
    Caption = '&Help'
    TabOrder = 5
    OnClick = HelpButtonClick
  end
  object Instancing: TComboBox
    Left = 112
    Top = 51
    Width = 241
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    Items.Strings = (
      'Internal'
      'Single Instance'
      'Multiple Instance')
    TabOrder = 1
  end
  object ThreadModel: TComboBox
    Left = 112
    Top = 83
    Width = 241
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    Items.Strings = (
      'Single'
      'Apartment'
      'Free'
      'Both')
    TabOrder = 2
  end
end