object Form3: TForm3 Left = 435 Top = 204 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Select new location' ClientHeight = 280 ClientWidth = 217 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter Scaled = False OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 0 Top = 0 Width = 217 Height = 280 Align = alClient Shape = bsFrame end object Bevel2: TBevel Left = 8 Top = 248 Width = 202 Height = 27 end object SpeedButton1: TSpeedButton Left = 9 Top = 249 Width = 100 Height = 25 Caption = '&Ok' Flat = True OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton Left = 109 Top = 249 Width = 100 Height = 25 Caption = '&Cancel' Flat = True OnClick = SpeedButton2Click end object DirectoryListBox1: TDirectoryListBox Left = 8 Top = 8 Width = 201 Height = 209 ItemHeight = 16 TabOrder = 0 end object DriveComboBox1: TDriveComboBox Left = 8 Top = 224 Width = 201 Height = 19 TabOrder = 1 OnChange = DriveComboBox1Change end end