object RepForm: TRepForm Left = 226 Top = 155 Width = 380 Height = 359 BorderIcons = [biSystemMenu] Caption = 'Choisissez un r�pertoire' Font.Color = clWindowText Font.Height = -16 Font.Name = 'System' Font.Style = [] PixelsPerInch = 120 TextHeight = 20 object DirectoryBox: TDirectoryListBox Left = 10 Top = 10 Width = 135 Height = 301 ItemHeight = 20 TabOrder = 0 OnChange = DirectoryBoxChange end object Drive: TDriveComboBox Left = 168 Top = 10 Width = 191 Height = 26 TabOrder = 1 OnChange = DriveChange end object Button1: TButton Left = 168 Top = 218 Width = 191 Height = 41 Caption = '&Ok' Default = True ModalResult = 1 TabOrder = 2 end object Button2: TButton Left = 168 Top = 268 Width = 191 Height = 41 Caption = '&Annule' ModalResult = 2 TabOrder = 3 end object FileList: TFileListBox Left = 168 Top = 50 Width = 191 Height = 151 ItemHeight = 20 Mask = '*.asc;*.bbs' TabOrder = 4 end end