object DirectoryForm: TDirectoryForm Left = 200 Top = 122 Width = 435 Height = 300 Caption = 'DirectoryForm' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 96 TextHeight = 13 object DirListBox: TListBox Left = 0 Top = 0 Width = 427 Height = 273 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] ItemHeight = 14 ParentFont = False TabOrder = 0 end end