object FormCreateDirectory: TFormCreateDirectory
  Left = 228
  Top = 280
  BorderStyle = bsDialog
  ClientHeight = 40
  ClientWidth = 386
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 7
    Width = 143
    Height = 16
    Caption = 'Create new directory'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object ButtonOK: TButton
    Left = 302
    Top = 56
    Width = 75
    Height = 25
    Caption = '&OK'
    ModalResult = 1
    TabOrder = 0
    OnClick = ButtonOKClick
  end
  object EditDirectory: TEdit
    Left = 8
    Top = 25
    Width = 369
    Height = 21
    TabOrder = 1
    OnKeyPress = EditDirectoryKeyPress
  end
  object ButtonCancel: TButton
    Left = 216
    Top = 56
    Width = 75
    Height = 25
    Caption = '&Cancel'
    ModalResult = 2
    TabOrder = 2
    OnClick = ButtonCancelClick
  end
end