object Form7: TForm7 Left = 313 Top = 180 BorderIcons = [] BorderStyle = bsDialog Caption = '�����' ClientHeight = 327 ClientWidth = 358 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 7 Top = 258 Width = 346 Height = 31 AutoSize = False Color = 12631741 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False Transparent = True WordWrap = True end object Label2: TLabel Left = 8 Top = 216 Width = 134 Height = 13 Caption = '����� ����������' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Image1: TImage Left = 0 Top = 291 Width = 361 Height = 38 Picture.Data = {} end object Label3: TLabel Left = 112 Top = 8 Width = 34 Height = 13 Caption = '����:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object DLB1: TDirectoryListBox Left = 5 Top = 29 Width = 348 Height = 180 Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 ParentFont = False TabOrder = 0 OnChange = DLB1Change end object DCB1: TDriveComboBox Left = 155 Top = 5 Width = 198 Height = 19 Color = clWhite DirList = DLB1 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 TextCase = tcUpperCase end object Edit1: TEdit Left = 5 Top = 230 Width = 260 Height = 21 Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnChange = Edit1Change end object Button1: TButton Left = 254 Top = 295 Width = 97 Height = 28 Caption = '��������' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = Button1Click end object Button2: TButton Left = 162 Top = 296 Width = 91 Height = 27 Caption = 'OK' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 OnClick = Button2Click end object create: TButton Left = 272 Top = 229 Width = 75 Height = 22 Caption = '�������' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 OnClick = createClick end end