object DriveSelBox: TDriveSelBox Tag = 1 Left = 279 Top = 154 HelpContext = 100 BorderStyle = bsDialog Caption = 'Select drives' ClientHeight = 184 ClientWidth = 249 Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Tag = 2 Left = 4 Top = 2 Width = 241 Height = 16 AutoSize = False Caption = 'Drives to search:' end object DriveLbox: TListBox Left = 4 Top = 20 Width = 133 Height = 157 Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 MultiSelect = True ParentFont = False TabOrder = 0 OnDblClick = DriveLboxDblClick end object id_AllHardisks: TButton Tag = 3 Left = 144 Top = 20 Width = 100 Height = 25 Caption = '&local harddisks' TabOrder = 1 OnClick = id_AllHardisksClick end object Button1: TButton Tag = 4001 Left = 144 Top = 50 Width = 100 Height = 25 Caption = 'Ok' Default = True ModalResult = 1 TabOrder = 2 end object Button2: TButton Tag = 4002 Left = 144 Top = 80 Width = 100 Height = 25 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 3 end object Translate1: TTranslate Tag = 5520 Left = 216 Top = 152 end end